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PREFACE 


This  is  the  third  volume  of  a final  report  documenting 
the  development  of  a computer  program  (NATA)  for  calculat- 
ing the  flow  in  arc-heated  wind  tunnels  and  the  conditions 
on  models  tested  in  such  reentry  simulation  facilities. 
Volume  I of  the  report  provides  a general  summary  of  the 
code's  capabilities  and  presents  the  theory  and  analysis 
underlying  its  operation.  Volume  II  is  a user's  manual 
which  defines  NATA's  inputs,  outputs,  and  precode^^  data  on 
standard  gas  models  and  nozzle  geometries.  The  present  vol- 
ume is  a programmer's  mcinual  for  NATA.  It  documents  the 
programming  of  NATA  in  sufficient  detail  to  support  code 
modifications,  cind  provides  information  needed  for  running 
the  code  on  the  UNIVAC  1108  under  the  EXEC  II  syf  tern,  or 
on  the  IBM  360/75  under  HASP  II. 
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THE  NATA  CODE  - PROGRAMMER'S  MANUAL 


By  W,  L,  Bade  and  J.  M.  Yos 
Avco  Systems  Division, 
Wilmington,  Massachusetts 


1.  INTRODUCTION 

The  NATA  code  is  a computer  program  for  solving  problems 
of  steady,  quasi-one-dimensional  gas  flow  in  nozzles.  The 
code's  capabilities,  and  the  theory  and  analysis  underlying 
its  operation,  have  been  documented  in  the  first  volume  of 
this  report  (ref . 1) . The  inputs , outputs , and  precoded 
data  on  standard  gas  models  and  nozzle  geometries  have  been 
defined  in  the  second  volume  (ref.  2).  The  present,  third 
vol\ame  provides  information  required  for  running  NATA  on 
UNIVAC  1108  and  IBM  360  conputers,  and  documents  the  pro- 
granming  of  NATA  so  that  programmers  and  computer-oriented 
users  will  be  able  to  evaluate  the  techniques  used,  maintain 
the  code  in  the  face  of  operating-system  changes,  convert  it 
for  use  on  other  types  of  con^uter,  introduce  modifications 
cind  correct  errors. 

Section  2 provides  a general  description  of  NATA,  includ- 
ing a catalog  of  its  subroutines  with  a statement  of  function 
eind  a list  of  calling  routines  for  each.  This  section  also 
gives  sait5)le  control-card  decks  for  running  the  code  on  the 
UNIVAC  1108  under  the  EXEC  II  system,  and  on  the  IBM  360/75 
\mder  HASP  II  and  OS  21. 

Section  3 discusses  each  subroutine,  explaining  its  pur- 
pose in  the  code  and  its  method  of  operation.  Many  special 
algorithms  are  analyzed,  VJhere  appropriate,  flowcharts  are 
used  to  display  the  logic  and  clarify  the  methods  used.  The 
Fortran  variables  stored  in  common  blocks  and  used  in  the  indi- 
vidual routines  are  all  defined  in  a glossary  of  symbols  (Sec- 
tion 4) , Section  5 lists  the  subroutines  in  which  each  com- 
mon variable  is  set,  used,  or  referenced  as  a subroutine  argu- 
ment. Finally,  a conplete  listing  of  the  source  program  is 
given  in  Section  6. 
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An  appendix  provides  similar  documentation  of  the  NOZFIT 
code,  a much  smaller  program  provided  for  setting  up  nozzle 
profile  curvefits  for  use  in  NATA.  A user's  manual  for  NOZ- 
FIT is  included  in  Volutiie  II  (ref.  2) . The  appendix  includes 
documentation  of  a general-purpose  plotting  subroutine  (GRAPH) 
for  producing  plots  on  S-C  4020,  S-C  4060,  or  other  plotting 
equipment  using  the  NAA  soft\^?are  package  for  the  SC-4020  (ref, 
3). 
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'1, 

2.  STRUCTURE  AND  OPERATION 
2,1  Brief  Description  of  the  NATA  Code 

NATA  is  a Fortran . IV  progtam  consisting  of  a main  pro- 
gram, two  block  data  routines,  and  66  svibroutines.  The  source 
deck  contains  approximately  8500  cards.  The  program  exists 
in  two  versions,  one  for  use  on  the  IBM  360  system,  the  other 
for  the  UNIVAC  1108.  The  IBM  version  is  entirely  in  double 
precision,  whereas  the  UNIVAC  version  is  a single  precision 
program  with  some  double  precision  arrays  and  subroutines. 

One  version  Ccin  be  converted  into  the  other  by  inserting  or 
removing  most  of  the  IMPLICIT  REAL*8  (A-H,  0-Z)  cards  which 
type  all  floating-point  variables  as  double  precision  in  tlie 
IBM  360  version.* 

The  IBM  360  version  requires  about  410K  bytes  of  core 
storage,  including  buffers.  The  UNIVAC  version  is  run  on  the 
1108  using  overlay,  and  requires  about  I23OOO3  or  42500^0 
words  of  storage.  It  fits  into  the  two-bank  processors  at 
I NASA/JSC  with  cibout  2000  words  to  spare. 


2.2  Subroutines  and  Linkage 

A list  of  the  routines  of  NATA  is  presented  below.  Names 
of  entry  points  are  included,  and  are  enclosed  in  parentheses 
to  distinguish  them  from  siobroutine  and  function  names.  The 
function  performed  by  each  routine  or  entry  point  is  described 
briefly,  and  in  each  case  a corrolete  list  of  calling  routines 
is  included.  The  order  of  the  list  is  as  follows:  main  pro- 

gram; block  data  routines;  subroutines,  functions,  and  entry 
points  in  alphantomeric  order. 


*Also,  the  IBM  version  contains  two  extra  subroutines,  EXP 
and  RESET,  for  reasons  e5q>lained  below. 
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MAIN 

BLKDl 

BLKD2 

AES0m 

AGS0LN 

AXFIT 

AXSECT 

BLAYER 

BLCALL 


Main  program;  calls  other  routines  to  perform 
the  required  calculations. 

BI0CK  DATA  routine  containing  precoded  data  on 
elements,  species,  reactions,  gas  models,  and 
nozzle  geometri  s. 

BL0CK  DATA  routine  containing  precoded  data  on 
transport-property  cross  sections. 

Calculates  the  effective  area  ratio  Aq  and  its 
derivative  dA^/dx  from  data  on  nozzle  geometry 
and  the  boundary  layer  displacement  thickness,* 
Called  by  GE0M. 

Calculates  the  geometric  area  ratio  A_  and  the 
axial  coordinate  x from  data  on  the  effective 
area  ratio  A©  and  the  boundary  layer  displace- 
ment thickness.  Called  by  PR0ZEN,  EQUIL,  and 
AXFIT. 

Calculates  the  axial  coordinate  x corresponding 
to  a given  value  cf  the  effective  area  ratio  A^ 
in  the  nonequilibri\im  solution  by  the  perturba- 
tion method.  Called  by  N0NEQ, 

For  a given  list  of  species  pairs,  adds  those 
pairs  whose  cross  sections  have  not  previously 
been  specified  to  a particular  step  of  the  trans- 
port cross  section  calculation.  Called  by  XSECT, 

Calculates,  boundary  layer  momentum  and  displace- 
ment thicknesses,  heat  flux,  and  shear  stress. 
Called  by  PR0ZEN,  EQUIL,  and  BLCALL. 

Sets  up  and  executes  calls  to  BLAYER  in  the  non- 
equilibriiam  solution.  Called  by  DERIVS  and  PRTA. 


♦Throughout  this  report,  the  mathematical  notation  is  as  de- 
fined in  Volvune  I (ref.  1) . 
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BXSECT 


CJrtMM 


CXSECT 


DERXVS 


DSMS0L 


UUMP 


DUMPE^^ 


ELCfZJED 


Searches  a parameter  array  for  references  to 
the  indices  of  species  pairs  used  in  the  cross 
section  calculation;  also  determines  the  corres- 
pondence between  entries  in  the  parameter  array 
cind  the  steps  in  the  cross  section  calculation. 
Called  by  XSECT. 

Computes  the  species  production  terms  Pi/Ci  in 
the  nonequilibrium  solution;  in  runs  with  etn 
electronic  nonequilibrium  gas  model,  also  com- 
putes the  radiative  loss  and  the  energy  treins- 
fer  to  the  electron  gas.  Called  by  DERIVE. 

Determines  the  correspondence  between  species 
pairs  in  the  master  list  of  species  and  those 
in  the  species  list  for  the  current  case.  Called 
by  XSECT. 

Organizes  the  calculations  of  rates  of  change  of 
the  species  concentrations  and  other  flow  vari- 
ables in  the  nonequilibrium  solution.  Called 
by  >1^JNEQ  and  RNKT, 

Performs  simultaneous  solution  of  a system  of 
linear,  inhomogeneous  equations  by  calliig  sub- 
routine SIMQ.  Called  by  EQCALC,  EXACT,  NEWRAP, 
N)8NEQ,  and  PERT. 

Prints  name  of  routine  in  which  an  error  has  been 
de.v.cted  and  sets  an  error  indicator  to  terminate 
^he  case.  Called  by  AGS0LN,  DSMS0L,  EQCALC,  FINDX, 
GE|iM,  GE0MAR,  MATINV,  NEWRAP,  N^KEQ,  PR0P,  RESTMP, 
and  WEDGE. 

Prints  a large  diagnostic  dump  of  ccxnmon  data 
when  a case  is  terminated  by  a call  to  DUMP  be- 
car.se  of  an  error.  Called  by  MAIN. 

Computes  the  electrical  conductivity  of  the  gas 
mixture.  Called  by  TRANSP. 


w 


T 


ELTIMB 


EPART 


EQCAIC 


(EQUIL) 


EXACT 


EXP 


PINDX 


(FINDXC) 


■ (FROZEN) 


I 

; 


Prints  elapsed  time  since  the  beginning  of  the 
run  and  time  since  tne  last  previous  time  mes- 
srge.  Called  by  MAIN  and  M0DEL. 

Computes  parameters  for  radiative  energy  loss 
amd  energy  transfer  to  the  electrons  for  a 
specified  reaction.  Called  by  C0MM. 

Ccxi5)utes  mole  fractions  and  thermodynamic  con- 
ditions for  thermochemical  equilibrium  at  spec- 
ified temperature  and  pressure.  Called  by  INTA 
and  M0DEL. 

Entry  point  in  siibioutine  FR0ZEQ;  organizes  the 
calculation  of  the  equilibrium  flow  solution. 
Called  by  MAIN. 

Computes  the  derivatives  of  the  species  concen- 
trations and  other  flow  variables  in  the  non- 
equilibritam  solution.  Called  by  DERIVS. 

In  the  IBM  36C  version,  the  dovible  precision 
ejtponential  function  e^  v/ith  underflow  suppres- 
sion; included  to  avoid  underflow  messages.  Not 
used  in  UNIVAC  version.  Called  by  BLAYER,  C^MM, 
EQCAIC,  NEIVRAP,  0UT1,  PR0P,  RNICT,  THERM,  and 
WEDGE. 

Solves  for  the  axial  coordinate  x corresponding 
to  a given  geometric  area  ratio  Ag  in  the  up- 
stream or  downstream  region.  Called  by  AGS0LN, 
AXFIT,  FR0ZEQ,  MAIN,  and  NEXTMP. 

Enti^^  point  in  sxibroutine  FINDX;  solves  for  the 
axial  coordinate  x corresponding  to  a given  half 
width  of  one  of  the  profiles  in  a channel.  Called 
by  NEXTMP. 

Entry  point  in  subroutine  FR0ZEQ;  organizes  the 
calculation  of  the  frozen  flow  solution.  Called 
by  MAIN. 
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FR0ZEQ 


GE0M 

GE^MAR 

(GMAR) 

(GMAR2) 

(GMAR3) 

INGAS 

INIT 


Organizes  the  frozen  and  equilibrivim  flow  sol- 
utions. The  subroutine  name  is  not  referenced 
in  NATA;  called  only  through  the  entry  points 
EQUIL  and  FR0ZEN. 

Organizes  the  geometry  calculations  for  the  non- 
equilibrium solution.  In  the  direct  integra- 
tion, it  ccxnputes  Ag  and  d ^nAg/dx;  in  the  in- 
verse method,  it  computes  f*  and  d.^n/>/dx. 

Called  by  C0MM. 

Ccanputes  the  geometric  area  ratio  Ag  and  its 
derivative  d Ag/dx  at  a given  axial  coordinate 
X.  Called  by  AGS0IN,  BLAYER,  FINDX,  GE0M,  0UT1, 
and  THR0A.T. 

Entry  point  of  subroutine  GE0MAR?  computes  the 
profile  ordinate  y at  a specified  axial  coordi- 
nate X.  Called  by  C0MM,  0UT1,  and  RADIUS. 

Entry  point  of  subroutine  GE0MAR;  computes  the 
profile  ordinates  y,  z at  a specified  axial  co- 
ordinate X in  a channel.  Called  by  AGS0LN,  C0MM, 
0UT1,  and  RADIUS. 

Entry  point  of  sxibroutine  GE0MAR;  computes  the 
profile  ordinates,  y,  z and  their  derivatives 
dy/dx,  dz/dx  at  a specified  axial  coordinate  x 
in  a channel.  Called  by  AES0LN,  BLAYER,  and 
FINDX. 

Sets  up  arrays  used  in  the  chemical  description 
of  the  gas  mixture.  Called  by  MAIN, 

Initializes  same  control  parameters  and  nondim- 
ensionalizes  the  species  thermochemical  data 
using  the  reservoir  temperature.  Called  by 
MAIN  and  RESTMP. 


I 


1 


(INTA) 

KANDMU 

KENT 

LIST 

MATINV 

I^EL 

NEl'TOAP 

NEXTMP 

:0NEQ 

NRMAX 

0UT 


Entry  point  of  s\ibroutine  INGAS;  organizes  the 
calculation  of  equilibrium  conditions  in  the  up- 
stream reservoir  for  given  reservoir  temperature 
and  pressure.  Called  by  MAIN  and  RESTMP, 

Calculates  quantities  proportional  to  the  vis- 
cosity and  translational  thermal  conductivity  of 
the  gas  mixture.  Called  by  TRANSP. 

Computes  quantities  used  in  the  transport  prop- 
erty calculations.  Called  by  TRANSP, 

Prints  the  "problem  summary"  portion  of  the  out- 
put for  each  case.  Called  by  MAIN, 

Con^)utes  the  inverse  Aj^^  of  the  matrix  ol . . 
specifying  the  elemental  composition  of  t^S 
independent  species.  Called  by  INGAS, 

Computes  stagnation  conditions  on  models  in- 
serted into  the  flow.  Called  by  FR02EQ,  N0NEQ, 
and  PRTA. 

Confutes  the  equilibritim  flow  conditions  at 
specified  temperature  and  entropy.  Called  by 
FR0ZEQ,  MAIN,  N0NEQ,  and  NRMAX. 

Determines  the  axial  coordinate  of  the  next  loca- 
tion at  which  model  condition  calculations  are 
to  be  done.  Called  by  FR03EQ  and  N0NEQ, 

Organizes  the  nonequilibrium  flow  solution. 
Called  by  MAIN, 

Calculates  the  ten^jerature  and  other  conditions 
at  the  sonic  point  in  an  equilibrium  flow  start- 
ing at  specified  upstream  reservoir  conditions. 
Called  by  MAIN  and  RESTMP. 

Prints  a list  of  definitions  of  output  variables. 
Called  by  MAIN, 
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i 


0UT1 


(^fUT2) 

PERT 

PI0MEG 

PR0P 

PRTA 

PXJTQIN 

QC0UL 

QEX 

QEXP 

QINTRP 

QU 


■ f 


Prints  conditions  in  the  upstream  reservoir  and 
at  the  sonic  points  of  the  frozen  and  equilibrium 
solutions.  Called  by  MAIN. 

Entry  point  of  sxjbroutine  0UT1;  prints  the  condi- 
tions at  each  point  in  the  flow  solutions.  Called 
by  FR0ZEQ  and  PRTA. 

Confutes  the  perturbations  in  the  flow  variables 
during  the  nonequilibrium  solution  by  the  pertur- 
bation method.  Called  by  N0NEQ. 

Cort5)utes  the  Maxwell-averaged  electron-neutral 
momentvun  transfer  cross  section  for  given  electron 
ten^erature  Tg,  Called  by  C0MM, 

Computes  the  conditions  at  a point  in  ^e  frozen 
flow  solution.  Called  by  PR0ZEQ. 

Orgcinizes  the  output  of  conditions  at  each  point 
in  the  nonequilibrixjm  flow  solution.  Called  by 
N0NEQ. 

Organizes  the  calculations  of  the  cross  sections 
used  in  computing  the  transport  properties.  Called 
by  TRANSP. 

Computes  the  factor  0.8  Qg  in  the  Coulomb  cross 
section  for  use  in  the  transport  property  calcu- 
lations. Called  by  PUTQIN, 

Confutes  the  cross  sections  for  exchange  inter- 
action. Called  by  PUTQIN. 

Ccxnputes  the  cross  sections  for  the  e:<ponential 
potential  ^ = Ae”^//’  . Called  by  PUTQIN. 

Interpolates  tabular  data  in  cross  section  calcu- 
lations. Called  by  QEXP,  QLJ,  and  QTAB. 

Computes  the  cross  sections  for  the  Lennard-Jones 
(6-12)  potential.  Called  by  PUTQIN, 
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QMIX 

QREPP 

QSAME 

QTAB 

Qll 

Q12 

Q13 

Q14 

RADIUS 


Computes  transport  cross  sections  from  the  mixing 
rule,  equation  1(102).*  Called  by  PUTQIN. 

Computes  the  cross  sections  for  an  attractive  or 
repulsive  power  law  potential  fi  = Ar"  ^ . Called 
by  PUTQIN. 

Sets  the  cross  sections  for  a species  pair  equal 
to  a constant  multiple  of  those  computed  previ- 
ously for  another  pair.  Called  by  PUTQIN. 

Computes  the  transport  cros^  sections  by  linear 

interpolation  in  tables  of 

B*  versus  temperature.  Called  by  PUTQIN. 

Computes  the  transport  cross  sections  using  the 
fairing  option,  equations  1(107)  and  1(108). 
Called  by  PUTQIN. 

Computes  the  cross  sections  by  the  generalized 
mixing  rule,  equation  1(109).  Called  by  PUTQIN. 

Sets  one  of  the  cross  sections  for  a given  spec- 
ies pair  equal  to  a constant  times  another  cross 
section  for  the  same  pair.  Called  by  PUTQIN. 

Recomputes  the  cross  sections  for  a species  pair 
using  equations  1(112) . Called  by  PUTQIN  and 
Qll. 

Computes  the  profile  ordinate,  the  geometric  area 
ratio,  and  another  quantity  required  in  the  cal- 
culation of  the  boundary  layer  at  the  first  point 
in  the  flow  solution.  Called  by  BLAYER. 


♦Equations  in  Volume  I (ref.  1)  are  cited  in  the  form  I(  ). 


READ 


RESET 

RESTMP 

RNKT 

SH0CK 

SIMQ 

STUNTS 

(STUNT2) 

THERM 

(THERMl) 

THR0AT 


Reads  the  input  data  for  each  case  and  sets  up 
arrays  defining  the  flow  geometry  and  gas  model. 
Called  by  MAIN. 

In  the  IBM  360  version,  simulates  a UNIVAC  1108 
library  routine  for  storing  the  time  at  the  start 
of  a run.  Called  by  ELTIME. 

Computes  the  equilibrium  conditions  in  the  up- 
stream reservoir  based  on  pressure  and  mass 
flow  or  mass  flow  and  stagnation  enthalpy  data. 
Called  by  MAIN. 

Computes  the  changes  in  the  species  concentra- 
tions and  other  flow  variables  over  a step  in  the 
nonequilibrium  integration.  Called  by  N0NEQ. 

Computes  the  pressure  ratio  for  an  oblique  shock 
in  a perfect  gas.  Called  by  WEDGE. 

Solves  systems  of  linear  inhomogeneous  equations. 
Called  by  DSMS0L  and  RESTMP. 

Prints  an  edit  of  species  thermal  properties. 
Called  by  MAIN. 

Entry  point  in  subroutine  STUNTS;  prints  edits 
of  the  steps  in  the  transport  cross  section  cal- 
culation. Called  by  MAIN. 

Computes  the  species  thermal  properties  at  a spec- 
ified temperature.  Called  by  DERIVS,  EQCALC, 
FR0ZEQ,  M0DEL,  NEWRAP,  and  STUNTS. 

Entry  point  in  subroutine  THERM;  computes  only 
the  species  specific  heats  at  a specified  tem- 
perature, Called  by  MAIN,  0UT1,  and  TRANSP. 

Implements  the  switch  from  the  upstream  solution 
by  the  inverse  method  to  the  downstream  direct 
integration.  Called  by  N0NEQ, 


I 
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(TIME)  Entry  point  in  subroutine  RESET  (ISM  360  version 
only) ; simulates  a library  timing  routine  avail- 
able on  the  XJNIVAC  1108.  Called  by  ELTIME, 

TRANSP  Organizes  the  transport  property  calculations. 

Called  by  BIAYER,  FR0ZEQ,  MAIN,  M0DEL,  0UT1, 
WEDGE,  and  STUNT2. 

(TRANSX)  Entry  point  in  subroutine  TRANSP;  sets  up  arrays 
used  in  the  transport  property  calculations. 
Called  by  MAIN. 

WEDGE  Computes  and  prints  the  conditions  on  the  surface 

of  a blunt  wedge  model  inserted  into  the  flow. 
Called  by  M0DEL, 

WES0IN  Calculates  the  quantities  z,  zz' , and  (zz')', 
based  on  the  approximate  solution  1(484)  of 
the  wedge  equation,  for  given  values  of  ^ and 
r . Called  by  WEDGE. 

XSECT  Sets  arrays  required  for  applying  the  precoded 

cross  section  data  to  the  species  present  in 
the  current  gas  model  and  sets  up  the  edited 
cross  section  calculation.  Called  by  TRANSX. 


2.3  UNIVAC  1108  Version 

The  UNIVAC  version  of  NATA  has  been  set  up  to  run  on 
the  1108  processors,  at  NASA/JSC  under  the  EXEC  II  operating 
system.  This  version  is  a single  precision  program  in  which 
, some  arrays  <.nd  three  subroutines  (SH0CK,  SIMQ,  and  WES0EN) 

are  typed  as  double  precision  to  maintain  adequate  accuracy. 
These  three  routines  all  perform  operations  which,  under  some 
condi cions,  can  lead  to  loss  of  many  significant  digits  be- 
cause of  cancellation  of  terms.  The  typing  of  these  routines 
, as  double  precision  is  accomplished  by  retaining  the  IMPLICIT 

REAL*8  (A-h,  0-Z)  statements  from  the  IBM  360  version.  The 
UNIVAC  Fortran  V compiler  interprets  these  statements  cor- 
rectly, a feature  included  b^  Sperry  Rand  in  the  interest  of 
compatibility  with  IBM  360  Fortran  IV. 

/ . 

^ > 
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I NATA  is  too  large  to  be  rxm  on  the  1108  without  use  of 

overlay.  Figure  1 shows  the  overlay  structure  employed. 

The  overlay  is  implemented  by  means  of  the  EXEC  II  Memory 
Allocation  Processor  (ref,  4) . In  figure  1,  the  names  en- 
closed in  boxes  represent  the  routines  of  NATA  listed  in 
Section  2.2,  Each  box  represents  a segment  or  subsegment 

with  the  associated  name  (S. ) given  in  parentheses.  The 

level  0 segment  S.MAIN  is  permanently  in  core.  The  various 
level  1 segments  overlay  one  another.  In  a typical  NATA 
- case,  the  loading  sequence  for  the  level  1 segments  is  as 

follows: 

S.READ  Read  input  data,  set  up  gas  model,  etc, 

S.LIST  Print  problem  sviromary, 

S.INIT  Compute  reservoir  conditions,  etc. 

S.XSEC  Set  \3p  transport  cross  section  calculation  for 
current  gas  model. 

S.0UT  Print  definitions  of  output  labels, 

S.PR0Z  Calculate  equilibrium  solution  to  throat,  to 
» obtain  displacement  thickness  at  throat, 

S.INIT-  Recalculate  reservoir  conditions  corrected  for 
displacement  thickness  at  throat. 

S.PR0Z  Calculate  frozen  solution;  calculate  equilibrium 
solution . 

S.N0NE  Calculr*^  : nonequilibrivmi  solution.  . 

^ f 

In  the  nonequilibrium  solution,  the  subsegment  S.N2  is  loaded 
first  for  use  in  the  initial  solution  by  the  perturbation 
method.  When  the  nonequilibrium  integration  is  started,  the 
integration  routine  RNKT  is  loaded,  overlaying  S.N2. 

Control  cards  for  using  NATA  on  the  UNIVAC  1108  pro- 
cessors at  NASA/JSC  are  shown  in  figures  2 and  3,  Figure  2 
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Level  0 


Level  1 


Level  2 


Figure  1.  Overlay  Structure  for  UNIVAC  1108  Version  of  NATA 
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I RUN  SCOTT/ 

N.MS6  FILF  REO.  tape  01  FHA32  0 FSTBN  00 

I ; c=PUT 
For  main. main 

FOR  SUP.SUB 

MAP  NATA/MATA 

S«mAIN>*(S«REaD.S.INIT«S.XSEC.S.FROZ«S.NCNE*S.OUT,s*LIST« 
S.STUN.S.OUMPI 

MAIN-BLK01-BLK02~NRMAX-TRANSP-KINT  --QI  I -Q12-Q13-Q14-PUT01N- 
OCOU--OFXP-OEX-Q INTRO-QLJ-OMIX-OREPP-OSAME-QTAB-FLCONO-KANDMU- 
00T1-H00EL-BLAYER-WEPGE~GE0MAR-R  ADl'JS-  SHOCK-DUMP-THERM-WESCLN- 
NEXTMP-FINDX-A'  OLN-NEWRAP-OSMSOL-SIMO-EQCMC-ELTIME 
READ 
LIST 
STUNTS 
OUMPEX 

I NIT-RES TMP-INGAS-MATlNV 
XSECT-AXSECT-BXSECT-CXSFCT 
FROZSQ-PROP 

N0NtQ-PRTA-8LCAi_L-THR0AT-EXACT-EPART-DER  WS-PI  0ME6-GE0M- AESOLN- 
C0MM-*( RNKT.S.N2 ) 

S.N2  SEG  AXFIT-PERT 
S.QUT  SEG  OUT 
XQT  CUR 
TRW  C 
JT  C 
£F  C 
REL  C 


S.O  SEG 
S.MAIN  SEG 


SPREAD  SEG 
S.LIST  SEG 
S.STUN  SEG 
S.OUMP  SEG 
S.INIT  SEG 
S.XSFC  SEG 
S.FROZ  SEG 
S.NONE  SEG 


Figure  2.  Control  Cards  for  Generating  a KATA  PCF 
Tape  on  the  UNIVAC  1108 


Z RUN  N0323..,««  SCOTT/ 

N MSG  file  REO.  TAPE  01  FH432  0 FSTRN  00 

ASG  A-*'0l234 
XOT  CUR 
TRW  A 
IN  A 
REL  A 
XQT  NATA 


Figure  3,  Control  Cards  for  Running  NATA  on  the 
UNIVAC  1108 
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illustrates  a control  card  deck  for  generating  a NATA  PCF 
tape*  The  first  card  is  a schematic  run  card.  The  deck 
is  set  up  to  compile  MAIN  and  a subzoutine  "SUB";  the  source 
decks  are  assumed  to  be  inserted  following  the  "F0R"  cards. 

The  "RUN",  "MSG",  "ASG",  "F0R" , "MAP",  "XQT" , "TRW" , "J5UT" , 

"TEF" , and  "REL"  cards  all  have  a 7-8  pxanch  in  colvimn  1 which 
was  not  reproduced  by  the  equipment  used  to  print  this  listing. 

Figure  3 shows  the  control  cards  for  a NATA  run  frcaa  an 
existing  PCF.  The  "V01234"  following  the  equals  sign  on  the 
ASG  card  is  a representative  reel  nirnber  for  the  PCF  tape. 

The  "XQT  NATA"  card  should  be  followed  by  the  input  data  for 
the  case,  \diich  are  described  in  Section  2 of  Volzme  II 
(ref.  2) . 

The  control  cards  required  for  use  of  NATA  at  other 
UNIVAC  1108  installations  may  differ  in  some  respects  from 
those  illustrated  in  figijces  2 and  3. 


2.4  IBM  360  Version 

Since  NATA  is  run  as  a single  precision  program  on  the 
UNIVAC  1108,  single  precision  function  names  (SQRT,  ABS, 

AMAXl,  etc.)  are  used  throughout  the  program,  excep.  In  the 
three  double  precision  routines,  SH0CK,  SIM3,  and  WES0IN, 

To  avoid  the  tedium  of  changing  function  names  when  the  code 
is  converted  for  use  as  a double  precision  program  on  the 
IBM  360,  the  single  precision  names  are  retained  in  the  source 
program  for  the  IBM  version  and  are  interpreted  as  referring 
to  the  dovible  precision  functions.  In  the  IBM  360/75  instal- 
lation at  Avco  Systems  Division,  this  reinterpretation  of 
the  single  precision  Fortran  function  names  is  accomplished 
by  using  a special  subroutine  library  in  the  link  edit  step. 

At  other  installations  where  such  a special  library  may  not 
be  available,  the  same  result  can  be  achieved  by  including, 
in  the  NATA  source  deck,  Fortran  svibroutines  defining  all  of 
the  single  precision  Fortran  function  names  in  terms  of  the 
corresponding  double  precision  functions.  An  example  of 
this  procedure  is  provided  by  the  function  EXP  in  the  IBM 
version  of  NATA.  As  shown  by  the  listing  of  EXP  in  Section 
5,  this  subroutine  redefines  EXP  in  terms  of  DEXP.  It  also 


-16- 


sets  EXP(X)  to  0 for  X less  than  -180,  to  avoid  the  produc- 
tion of  paper-wasting  underflow  messages. 

Since  the  Fortran  G ccsnpiler  gives  a level  8 diagnostic 
when  a single  precision  function  name  is  used  with  a double 
precision  argument,  the  G compiler  cannot  be  used  on  the  KATA 
version  presented  here.  Instead,  the  H compiler,  which  gives 
only  a level  4 diagnostic,  must  be  used.  Several  of  the  NATA 
routines,  including  READ  and  the  two  block  data  routines,  are 
too  large  for  the  standard  H ccxtipiler.  At  Avco  Systems  Div- 
ision, an  available  large  compiler  (F0RTHMAX)  is  used  to  pro- 
cess the  NATA  source  deck. 

In  both  versions  of  NATA,  the  elapsed  time  since  the 
beginning  of  the  run  is  printed  out  at  several  stages  in 
each  case.  In  the  UNIVAC  version,  these  times  are  obtained 
by  calling  routines  RESET  and  TIME,  which  are  available  in 
the  1108  system  library.  In  the  IBM  360  version  in  opera- 
tion at  Avco  Systems  Division,  RESET  and  TIME  are  simu- 
lated using  the  system  library  routine  ACUCPU,  which  gives 
the  unexpended  CPU  time  remaining  before  autcmiatic  job  ter- 
mination at  TIME.G^. 

In  sximmary,  conversion  of  the  UNIVAC  version  of  NATA 
into  the  IBM  360  version  requires  the  following  operations: 

(1)  An  IMPLICIT  REAL*8  (A-H,  0-Z)  card  must  be  in- 
serted into  each  NATA  routine  except  ELTIME, 

^UT,  RESET,  SH/ZteK,  SIMQ,  and  WES0IN.  In  MAIN, 
this  must  be  the  first  card  apart  from  comment 
cards.  In  the  other  routines,  the  IMPLICIT 
statement  must  directly  follow  the  SUBROUTINE, 
FUNCTION,  or  BLOCK  DATA  statement. 

(2)  The  subroutines  EXP  and  RESET  must  be  inserted. 

(3)  If  a special  system  library  for  inter^  ceting  the 
single  precision  Fortran  fxinction  names  as  dovible 
precision  functions  is  not  available  at  the  com- 
puter installation,  Fortran  subroutines  to  de- 
fine the  single  precision  names  as  double  pre- 
cision functions  must  be  added  to  the  source 
deck. 
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Figure  4 illustrates  the  control  cards  used  to  run  NATA 
from  a tape  containing  the  binary  deck,  on  the  Avco  Systems 
Division  IBM  360/75  system.  (The  required  JCL  cards  will 
differ  somewhat  at  other  IBM  360  installations) . The  fourth, 
fifth,  and  sixth  cards  in  figure  4 invoke  the  special  system 
library  which  interprets  the  single  precision  fxinction  names 
as  referring  to  the  corresponding  double  precision  functions. 
The  binary  tape  containing  NATA  is  identified  on  the  DD  card 
with  VOLUME  = SER  = NATA3.  The  data  set  G0.FTO8FOO1  is  the 
bineury  tape  upon  which  NATA  can  write  data  for  stibsequent 
plotting.  G0.FTO7FOO1  is  the  data  set  for  punched  output. 


-18- 


w 


] 


//  JOB 

//  MSGLEVELsl 

✓ i XEC  FORTHLG.  REG  ION. GO=4  20K.  TIME. G0=4 

//LKED.SYSLIB  Di>  DSNAME=VER  1 . TEMPL  IB.DI  SP=SMR 
//  00  OSNAMEsSV'Sl  .FORTLie.Ol?P=SHR 
//  00  0SNAME=SYS1 .OOUBLEP.OISP=SHR 
//LKEO.SYSUTl  DO  SPACE=( 102A. C 600. 50) ) 

//LKEO.SYSLMOO  00  SP AC E=( 30 72. ( 200 • 1 0 . 1 ) • RL SE ) 

//LKEO.SYSLIN  00  UNIT=(TAPE9. . DEFER). LA0EL=(. BLP) .OISP=<OLO. KEEP) . X 

//  OCB=(RECFM=FO.LHECL=aO»Bl-KSI  ZE  = ^200)  .VOLUME=S£R=NATA3 

//  OD  ♦ 

ENTRY  MAIN 
/♦ 

//G0.FT08F001  OD  ON IT=< TAPER. . DEFER ) .LABEL= (. BLP) .0 I SP=( NEW. KJEP ) . C 

//  L>CD-(RECFM=VBS.LRECL=92.8LKSIZE=4604)  , V0LUME=SER=0ATASV 

//G0.FT07F00 I OD  SYSOUT=B 
//GO.FTOSFOOl  OD  ♦ 


Figure  4.  Control  Cards  for  Running  NATA  on  the  IBM  360 


3.  ANALYSIS  OF  ROUTINES 

The  present  section  discusses  and  e3<plains  the  main 
program  and  each  subroutine  of  the  NATA  code.  The  purpose 
of  this  e:5position  is  to  provide  an  entry  into  the  coding 
for  programmers  who  wish  to  analyze  errors,  make  corrections, 
or  introduce  modifications  into  NATA. 

All  of  the  physics  and  gas  dynamics  and  most  of  the  math- 
ematical analysis  underlying  the  programming  have  already  been 
documented  in  Volumes  I and  II  of  this  report  (refs.  1,  2) . 
Where  appropriate,  individual  sections  and  equations  of  Vol- 
umes I and  II  are  referenced.*  In  cases  where  the  underlying 
mathematical  analysis  has  not  been  docvimented  previously,  it 
is  explained  in  the  present  section. 

The  routines  of  NATA  are  discussed  in  the  following 
order:  first  the  main  program,  then  all  subroutines  and 

f\inctions  in  alphanumeric  order  of  their  names.  This  is 
the  same  order  as  that  in  which  the  routine  names  are  listed 
in  Section  2.2  aid  at  the  beginning  of  Section  5,  and  in  which 
the  source  listings  are  presented  in  Section  6. 


3.1  Main  Program 

The  main  program  performs  certain  initialization  func- 
tions, calls  the  major  subroutines  in  proper  sequence,  im- 
plements some  of  the  input  options,  and  controls  job  termi- 
nation, A flowchart  of  MAIN  is  shown  in  figure  5,  The 
operations  shown  in  this  flowchart  v/ill  be  discussed  approx- 
imately in  the  order  in  which  they  are  performed  during  exe- 
cution of  the  code. 

3.1.1  Job  Initialization 

The  12  input  control  parameters  ISWIA  to  ISW6B  are  init- 
ialized by  arithmetic  statements  in  MAIN  before  any  input  data 


♦Equations  from  Volumes  I and  II  will  be  referenced  in  the 
form  I ( ) and  II ( ) . 
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have  been  rear';.  This  procedure  is  used  because  these  par- 
ameters are  in  unlabelled  common,  and  hence  cannot  be  preset 
in  a BI^K  DATA  routine. 

3.1.2  Case  Initialization 

The  calculations  for  each  case  in  a job  always  begin 
with  statement  10.  First,  svjbroutine  ELTIME  is  called  to 
determine  the  elapsed  time  ETO  since  the  start  of  the  first 
case.  Then  svib routine  READ  is  called.  This  routine  reads 
the  input  data  for  the  case,  sets  up  arrays  describing  the 
gas  model  and  the  nozzle  geometry,  and  prints  some  of  the 
data  defining  the  case  being  run.  Next,  subroutine  LIST  is 
called  to  print  the  remaining  data  defining  the  current  case. 
Subroutine  ELTIME  is  then  called  again  to  print  the  time, 

ELTIME  is  called  at  various  locations  in  MAIN,  to  provide 
data  on  the  execution  time  consumed  by  major  portions  of 
the  calculation.  These  subsequent  calls  to  ELTIME  are  omit- 
ted from  the  flowchart  in  the  interest  of  simplification. 

Before  the  call  to  LIST,  the  value  of  the  logical  input 
variable  N0TRAN  is  checked.  N0TRAN  is  a switch  to  allow  the 
suppression  of  all  treinsport  property  calculations  through- 
out NATA.  With  N0TRAN  = .TRUE.,  flow  solutions  can  be  run 
for  a gas  model  containing  user-specified  species  for  which 
transport  cross  section  data  have  not  been  provided.  Of 
course,  when  the  transport  property  calculations  are  suppres- 
sed, the  bo\andary  layer  cannot  be  included  in  the  flow  solu- 
tions, Hence,  for  N0TRAN  = .TRUE.,  ISW3B  is  set  to  zero.  How- 
ever, the  imput  value  of  ISW3B  is  saved  in  the  location  IS3, 
and  is  reset  before  the  call  to  READ  in  subsequent  cases. 

MAIN  next  increments  the  case  counter  NCASE  and  initi- 
alizes some  variables  including  the  indicator  ERR  in  common 
block  /ERR0R/,  This  indicator  is  set  to  .FALSE,  near  the 
beginning  of  each  case.  If  the  programmed  checks  in  any  sub- 
routine subsequently  detect  an  error,  ERR  is  set  to  .TRUE,, 
and  this  indication  causes  control  to  be  returned  to  MAIN  as 
■quickly  as  possible,  with  no  further  calculations.  State- 
ments in  MAIN  then  cause  subroutine  DU'TEX  to  be  called. 

DUMPEX  prints  out  a diagnostic  dump  consisting  of  the  cur- 
rent values  of  most  of  the  variables  in  leibelled  and  unlabelled 
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ccanmon.  The  details  of  this  scheme  are  explained  more  fully 
in  the  sections  (below)  on  subroutines  DUMP  and  DUMPE3C.  Most 
of  the  tests  on  ERR  in  MAIN  have  been  omitted  from  the  flow- 
chart for  brevity,  but  the  ones  following  CALL  FROZEN,  CALL 
EQUIL(2) , and  CALL  N0NEQ  have  been  included  to  illustrate 
the  method, 

MAIN  next  calls  subroutine  INGAS  to  set  up  certain  arrays 
used  to  describe  the  chemical  nature  of  the  gas  mixture.  Then, 
if  ISW2B  < 0 (i.e.,  if  the  determination  of  reservoir  condi- 
tions is  to  be  based  partly  on  the  total  mass  flow) , subrou- 
tine RESTMP  is  called  to  compute  the  reservoir  temperature 
cind  pressure.  Unless  ISW2B  is  negative,  subroutine  INIT  and 
INTA  are  then  called.  INIT  initializes  a number  of  control 
variables  and  nondimensionalizes  some  species  properties  us- 
ing the  reservoir  temperature.  INTA  computes  the  species 
mole  fractions  and  the  thermal  properties  of  the  gas  in  the 
reservoir.  For  negative  ISW2B,  INIT  and  INTA  are  called  in 
RESTMP  with  the  final  reservoir  temperature  and  pressure, 
and  thus  do  not  have  to  be  called  in  MAIN, 

3,1,3  Special  Options 

If  ISW6A  is  negative,  NATA  computes  and  prints  tables 
of  themal  properties  for  all  of  the  species  in  the  current 
gas  model,  instead  of  calculating  a flow  solution.  This 
operation  is  performed  by  subroutine  STUNTS. 

If  ISW6A  is  positive,  NATA  computes  and  prints  out  the 
reservoir  conditions  (as  usual) , but  does  not  proceed  with 
the  flow  solutions.  For  the  specific  value  ISW6A  = 2,  the 
calculation  of  the  transport  properties  in  the  reservoir  is 
also  omitted.  This  feature  allows  the  NATA  user  to  employ 
the  code  for  thermochemical  calculations  for  a gas  model 
containing  nonstandard  species  without  setting  up  transport 
cross  section  data  for  the  species. 

If  ISW6A  is  0 (the  normal,  preset  value) , NATA  generates 
one  or  more  flow  solutions. 
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If  ISW6A  is  zero  or  positive  (but  not  equal  to  2),  the 
transport  properties  in  the  reservoir  are  computed.  Before 
transport  property  calculations  can  be  done,  the  entry  TRANSX 
of  subroutine  TRANSP  must  be  called.  However,  the  call  to 
TRANSX  can  be  omitted  if  TRANSX  has  been  called  in  a previous 
case  with  the  same  gas  model.  The  gas  model  is  the  same  as 
in  the  preceding  case  if  SUPG0  = .TRUE.,  and  TRANSX  was  called 
in  a previous  case  if  IRCp  = 0.  If  N0TRAN  is  .TRUE.,  the  call 
to  TRANSX  is  skipped. 

Another  special  option  is  ah  edit  of  the  transport  cross 
section  calculations,  performed  by  calling  the  entry  STUNT2 
of  sxjbroutine  STUNTS.  This  call  is  executed  if  the  input  con- 
trol parameter  ISWIB  is  nonzero.  For  ISWlB  negative,  STUNT2 
also  prints  a table  of  averaged  transport  cross  sections;  in 
this  case,  no  flow  solution  is  run. 

3.1,4  Specific  Heat  of  the  Gas  at  the  Wall  Temperature 

MAIN  computes  the  specific  heat  of  the  gas  at  the  nozzle 
wal'  temperature,  TWALL.  This  calculation  is  based  on  the 
assumption  that  the  gas  at  this  low  temperature  is  a mixture 
of  the  "cold  species"  used  to  define  the  elemental  composi- 
tion. The  specific  heat  is  calculated  as 


k=l 


in  which  W^,  is  the  mean  molecular  weight  of  the  cold  gas, 
n the  nvimber  of  cold  species,  x^^  the  mole  fraction  of  the 
kth  cold  species,  and  Cp]^/RQ  the  nondimen sional  molar  spec 
ific  heat  at  constant  pressure  for  the  k^^  cold  species. 
This  species  specific  heat  is  given  by  CCPJ(I),  where 
I = UCS(K)  is  the  index,  in  the  list  of  species  for  the 
current  gas  model,  of  the  kth  cold  species. 

3,1.5  Definitions  of  Output  Variable  Labels 

In  the  first  case  of  each  job  (NCASE  = 1) , MAIN  calls 
subroutine  0UT  to  print  a list  of  definitions,  with  units. 
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of  the  output  variable  labels  used  in  printing  out  the  flow 
conditions  and  test  conditions  on  models.  These  labels  dif- 
fer, in  roost  cases,  from  the  Fortran  variable  names  used  in 
the  code. 


3.1.6  Correction  of  the  Reservoir  Conditions  for  the 
Displacement  Thickness  at  the  Throat 

If  the  boundary  layer  is  to  be  included  in  the  solution 
(ISW3B  ^ 0) , and  if  the  reservoir  condition  calculations 
are  based  partly  on  the  total  mass  flow  (ISW2B^0),  then 
NATA  normally  recalculates  the  reservoir  conditions,  taking 
account  of  the  effects  of  the  boundary  layer  displacement 
thickness  on  the  equilibrium  sonic  mass  flux.  For  ISW2B<  0, 
subroutine  RESTMP  determines  the  reservoir  ten^erature  and 
pressure  so  as  to  match  the  sonic  mass  flux  SMASS  and  one 
other  condition  (on  pressure  or  enthalpy) . Initially,  when 
RESTMP  is  called  the  first  time,  SMASS  is  calculated  as  the 
ratio  of  the  input  total  mass  flow  to  the  geometric  cross 
sectional  area  of  the  nozzle  at  the  throat.  To  correct 
these  results  for  the  displacement  thickness  effect,  MAIN 
calls  entry  EQUIIi(IPASS)  of  subroutine  FR0ZEQ  with  the  argu- 
ment IPASS  = 1.  EQUIL  then  computes  the  equilibrium  solution 
up  to  the  throat,  including  the  boundary  layer.  MAIN  then 
calculates  the  effective  cross  sectional  area  ATH  at  the 
throat  including  the  effects  of  the  displacement  thickness, 
recomputes  the  sonic  flux  SMASS,  and  calls  RESTMP  for  a 
second  time  to  recompute  the  reservoir  conditions.  This 
correction  can  be  suppressed,  if  it  is  not  desired,  by  set- 
ting MFITER  = 0 in  the  input, 

3.1.7  Convers’  >n  Factors 

Next,  MAIN  sets  the  array  of  conversion  factors  CF(I) 
in  common  block  /C0NVRT/,  These  factors  convert  the  non- 
dimensional  flow  variables  used  in  the  internal  computations 
to  the  units  used  in  the  printed  output, 

3.1,8  Output  of  Reservoir  Conditions 

The  nondimensional  flow  variables  CT  = T/Tq,  PRES  = p/pg/ 
etc, , are  now  set  to  their  reservoir  values  and  subroutine 
^UTl  is  called  to  print  out  the  reservoir  conditions. 
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3.1.9  Solution  Header  Records  on  Tape  8 

If  the  frozen  flow  solution  is  to  be  generated  (ISWIA  ^ 0) 
and  if  data  are  to  be  written  on  a binary  output  tape  for  sub- 
sequent plotting  (DATAPE  = .TRUE,),  the  main  program  next 
writes  a "header"  record  on  tape  8 for  the  frozen  solution. 
This  record  contains  the  nozzle  index  N0ZZLE  = NPR0FL(1), 
the  type  of  solution  (IS0LN  = 1 for  frozen  flow),  and  the 
reservoir  conditions. 


3.1.10  Frozen  Solution 

To  generate  the  frozen  flow  solution,  MAIN  calls  the 
entry  FR0ZEN  of  subroutine  FR0ZEQ.  It  then  calls  0UT1  to 
print  the  sonic-point  conditions  in  the  frozen  solution. 

3.1.11  Equilibrium  Solution 


MAIN  calls  svibroutine  NRMAX  to  compute  the  conditions 
at  the  sonic  point  in  the  equilibri:  m solution.  These  data 
are  needed  for  both  the  equilibriiam  and  nonequilibrium  sol- 
utions. Then,  unless  ISW3A  = 0,  MAIN  checks  DATAPE.  If 
this  control  variable  is  .TRUE, , a header  record  is  written 
on  tape  8 for  the  equilibrium  solution,  and  the  entry 
EQUIL(IPASS)  of  subroutine  FR0ZEQ  is  called  with  IP ASS  = 2 
to  produce  the  solution.  Finally,  0UT1  is  called  to  print 
out  the  equilibrium  throat  conditions. 


3.1.12  Nonequilibrium  Solution 


If  the  nonequilibriiom  solution  is  to  be  computed  (ISW2A?^0), 
MAIN  determines  the  constants  C and  ot  in  the  area-density  re- 
lation 1(383)  assumed  in  the  solution  by  the  inverse  method 
upstream  of  the  throat.  The  parameter  u is  determined  by  a 
Newton-Raphson  solution  of  equation  1(385)  or  1(386),  The 
iteration  is  started  using  the  initial  estimate 


oc 
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which  can  be  derived  by  taking  the  logarithm  of  1(385)  and 
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expanding  in  (cx  + 2)  uround  o<  = 0: 


ih(<x+2)  ^ 2+-^  - ~ (3) 

Then  to  obtain  starting  conditions  for  the  perturbation  sol- 
ution, MAIN  sets  the  nondimer ^ional  temperature  CT  to  1-DELT, 
calls  subroutine  NEWRAP  to  compute  the  equilibrium  flow  con- 
ditions at  this  temperature,  computes  the  corresponding  ef- 
fective area  ratio  AFNTS,  emd  calls  subroutine  FINDX  to  det- 
ermine the  axial  coordinate  CX  at  which  these  conditions 
occur.  If  DATAPE  = .TRUE,,  a header  record  is  written  on 
tape  8 for  the  nonequilibriim  solution.  Then  subroutine 
N0NEQ  is  called  to  generate  the  nonequilibrium  flow  solution. 

3.1,13  Diagnostic  Dumps 

If  a .TRUE,  value  of  the  error  indicator  ERR  is  detected 
anywhere  in  MAIN,  control  is  immediately  transferred  to  the 
statement  CALL  DUMPEX,  ;.’hich  prints  out  the  curre-  • of 

a large  number  of  common  variables  as  an  aid  to  idui-cif;.  Ing 
the  cause  of  failure.  If  data  have  been  written  on  tape  8, 
the  tape  is  backspac<^d  to  eliminate  the  records  v’ritten  dur- 
ing the  failea  case. 


3.1.14  Job  Termination 

At  the  end  of  the  calculations  for  each  case,  a line  of 
output  is  written  containing  the  case  number,  the  number  of 
records  written  on  tape  8 (if  any) , and  the  total  number  of 
records  written  thus  far  in  the  job.  Then  the  value  of  the 
job  termination  control  parameter  ISW4A  is  checked.  If 
ISW4A  is  nonzero,  the  input  data  for  the  next  case  are  read. 

If  ISW4A  is  zero,  a summary  of  the  completed  and  failed  cases 
in  the  job  is  written  and,  if  DATAPE  is  .TRUE,  an  end  file 
mark  is  written  on  tape  8 and  the  tape  is  rewound, 

3.2  Subroutine  AES0LN 

This  subroutine  calculates  the  effective  area  ratio  at  a 
given  position,  X,  in  the  nozzle.  The  value  X is  a subroutine 
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argument.  Other  input  data  to  the  routine  are  contained  in 
the  common  block  /AEGE0^i/,  namely,  the  geometric  area  ratio 
SI,  the  derivative  of  the  geometric  cirea  ratio  S2,  and  the 
square  root  of  the  geometric  area  ratio  SQRTA.  To  set  Si 
and  S2,  a call  to  AES0LN(X)  must  be  preceded  by  a call  to 
GE0MAR(X,S1,S2) . In  addition,  if  NPRFLS  = 1 (the  flow  is 
in  a nozzle,  not  a channel)  and  JDIM  = 1 (the  nozzle  is  axi- 
symrcatric) , then  bQRTA  must  be  computed  in  the  calling  rou- 
tine before  AES0UI  is  called.  ' 

The  calculations  of  the  efrect’ ve  area  ratio  are  based 
upon  equations  1(126),  1(130)  euid  1(134),  respectively,  for 
the  cases  of  a two-dimensional  nozzle  (NPRFLS  = 1,  JDIM  = 0) , 
ap  axisymmetric  nozzle  (NPRFLS  = 1,  JDIM  = 1) , and  a rectan- 
gular  channel  (NPRFLS  = 2' . The  effective  area  ratio  ob- 
tained is  stored  in  the'  location  SI  of  common  block  /AEGE|®^, 
replacing  the  geometric  area  ratio. 

In  addition,  the  subroutine  computes  the  derivative, 
dA^dx,  of  the  effective  area  ratio,  using  the  following 
formulas : 

2D  Nozzle 


dAe 

dx 


d^_  1 


dx  yp  dx 

1 - St/YO 


(4) 


Axisymmetric  Nozzle 


(5) 


Channel 

dAe 
dx  ” 


(yo  - ^*)  (zq-  ^2*) 


(6) 
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These  relations  can  easily  be  derived  from  equations  1(126), 
1(130),  and  1(134).  The  ccanputed  value  of  dAe/dx  is  stored 
in  the  location  S2  of  common  /AEGE0M/,  where  it  replaces  the 
derivative  of  the  geometric  area  ratio. 

3,3  Subroutine  AGS0UT 

The  purpose  of  this  subroutine  is  to  solve  for  the  geo- 
metric area  ratio  A_  when  the  effective  area  ratio  Ag  and 
boundary  layer  displacement  thickness  S*  are  given.  These 
input  data  are  provided  in  the  argiament  list:  Ae  = AE, 

<5  * = DEL(i) , where  the  index  i runs  from  1 to  2 in  the  case 
of  a channel.  The  argument  list  also  includes  the  i'~dicatcr 
UPD0WN,  which  specifies  whether  an  upstream  (-1.)  or  down- 
streeim  (+1.)  solution  is  desired.  The  con5>uted  value  of 
Ag,  and  the  corresponding  value  of  x,  are  returned  to  the 
calling  routine  through  the  arguments  AG  and  X,  respectively. 

The  solution  for  A„  is  straightforward  and  ejqplicit  in 
the  case  of  a nozzle.  It  is  given  by  equation  1(127)  if  the 
flow  geometry  is  two-dimensional  and  by  1(131)  if  it  is  axi- 
symmetric.  In  both  cases,  the  value  of  X corresponding  to 
Ag  is  determined  by  calling  FINDX. 

In  th'  case  of  a channel,  the  relation  between  Ae  and 
A is  given  by  equation  1(135)  and  the  profile  functions 
ylx) , z(x).  This  relation  does  not  permit  an  explicit  sol- 
ution for  Ag.  In  AGS0LN,a  mamerical  Newton-Raphson  method 
is  used  to  determine  Ag.  Equation  1(135)  is  written  as 

y ^2  + z 5^ 

Ag  = Aj,  + ^ (7) 

yo^o 


where  s* 

A„  = (1  - -±i*)  (1  - _^)  Ag  - -i-Lla.  (8) 

yo  ^0  ^0  ^0 


; 
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it  it 

The  quantity  A^,  and  the  factors  S i/Yq^O 

constcxnts  during  the  solution  for  a particular  call  to  the 
subroutine.  From  (7) , the  object  of  the  calculation  is  to 
find  a value  of  x sudi  that  F(x)  = 0,  where 


F(x)  = + 


y (x)  ^ 2 ^ ^ 1 

yo^o 


Ag(x) 


(9) 


Let  X,  F denote  the  values  of  these  qucintities  from  the  cur- 
rent iteration  cind  x^,  Fq  the  values  for  the  previous  itera- 
tion. Then,  based  on  a linear  appraximation  to  (9) , the  value 
of  X required  to  make  F(x)  = 0 is  estimated  to  be 


Xn  = X - F 


X - Xq 

F - Fq 


(10) 


The  iteration  based  on  this  relation  begins  at  statement  60 
in  the  svibroutine.  To  start  the  iteration,  A is  set  equal 
to  Ag,  and  the  corresponding  x is  computed  using  FINDX.  The 
second  point  is  obtained  by  computing  Ag  from  (7)  and  again 
using  FIKDX.  Equation  (10)  is  then  used  in  the  third  and 
all  svibsequent  steps.  The  convergence  criterion  is  that 
iFl/Ag  be  less  than  or  equal  to  10“5^  or  that  F = Fq. 

If  A (x)  in  (9)  is  expressed  by  means  of  equation  1(120), 
equation  (9)  can  be  re\>n:itten  in  the  form 

F(x)  = (1  - -^)  (1  - -^)  Ae  - (-y ^)  (-5 ^) 

YO  Yo  Yo  Zq  2q 

(11) 

If  y and  z both  have  minima  at  the  throat  x = 0,  as  is  nor- 
mally the  case  in  channels,  then  the  maximum  value  of  F(x) 
occurs  at  X = 0 and  is  equal  to 

= F(0)  = U ^)  (1  - Ae  - (1-  -|^)  (1 p-) 

max  yQ  Zq  0 

(12) 
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In  order  for  a solution  of  the  equation  P(x)  = 0 to  exist, 
it  is  necessary  that  be  greater  than  or  equal  to  zero. 

This  is  always  true  if  and  V = ■Sa;-  Also, 

in  practice,  it  is  always  true  when  A^^  Ij^  However,  when 
Ag  is  nearly  equal  to  1 and  2 ^2*»  ^niax 

can  be  negative.  These  circiomsteinces  can  arise  near  the 
sonic  point  (where  A^  = 1)  when  the  stxnic  point  is  displaced 
from  the  geometric  throat  by  the  presence  of  large  gradients 
in  the  displacement  thicknesses.  When  this  occurs,  the  itera- 
tion formula  (10)  extrapolates  past  the  throat  and  gives  an 
Xn  of  the  wrong  sign,  i.e.,  the  opposite  sign  to  UPD0WN. 

When  such  a condition  is  detected,  AGS0IN  attempts  to  "fxx" 
the  problem  by  resetting  the  displacement  thicknesses 
$2  to  their  values  at  the  sonic  point,  and  <42*  res- 

pectively, and  restarting  the  iterative  solution  at  the  begin- 
ning, Under  the  circumstances  in  question,  this  adjustment 
can  have  little  effect  on  the  value  of  A„  computed  (which  is 
near  unity).  Equation  (12)  shows  that  after  this  replacement, 
Pmax  is  product  of  a positive  factor  and  (Ag  - 1) , and 
hence  is  >0.  Tiius,  if  the  problem  was  indeed  caused  by  the 
combination  of  circumstances  described  above,  the  "fix"  should 
guarantee  the  existence  of  a solution  of  the  equation  F(x)  = 0. 
The  coding  provides  a dump  and  an  error  exit  should  the  prob- 
lem recur  after  the  "fix"  has  been  carried  out.  In  this  case, 
the  problem  has  a different  cause,  such  as  an  error  in  a user- 
supplied  channel  profile  curvefit. 

3.4  Subroutine  AXFIT 


This  subroutine  solves  for  the  value  of  x corresponding 
to  a given  effective  area  ratio  (AFNTS)  during  the  initial 
(perturbation)  portion  of  the  nonequilibrium  solution.  If 
the  solution  is  being  calculated  without  the  boundary  layer 
(ISW3B  = 0) , then  the  geometric  area  ratio  is  equal  to  the 
effective  area  ratio,  and  x (denoted  by  CX)  is  determined 
by  calling  subroutine  PIHDX.  If  the  boundary  layer  is  in- 
cluded in  the  solution,  but  subroutine  THREAT  has  not  yet 
been  called  to  reset  lUPD  from  1 to  0,  the  effects  of  the 
boundary  layer  displacement  thickness  on  the  effective  flow 
geometry  are  neglected,  and  x is  again  obtained  from  FINDX. 
However,  if  the  boundary  layer  is  included  and  lUED  = 0, 
then  the  inviscid  flow  is  coupled  to  the  boundary  layer  and 
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X is  accordingly  determined  by  calling  AGS0I2T.  Both  FIND'! 
and  AGS0LN  require  an  indicator  which  specifies  whether  the 
upstream  (UPD0liJN  = -1)  or  do\\mstream  (UPD0I'JN  = 1)  solution 
for  the  X corresponding  to  the  effective  area  ratio  AFNTS 
is  desired.  In  AXFIT,  this  indicator  is  determined  by  test- 
ing whether  the  nondimens ional  temperature  CT  is  greater  than 
or  less  than  its  value  CTMAX  at  the  gecanetric  throat  based  on 
the  equilibrium  flow  solution. 

3.5  Subroutine  AXSECT 

Sxibroutine  AXSECT  is  called  by  siibroutine  XSECT  for 
the  purpose  of  adding  data  for  additional  species  pairs  to 
the  edited  cross  section  data  in  common  block/TRANS"]^.  The 
first  argument  LL  of  the  subroutine  gives  the  step  in  the 
cross  section  computations  at  which  the  additional  pairs  are 
to  be  added,  v;hile  the  second  argument  NN  gives  the  total 
number  of  species  to  be  considered  in  adding  the  data.  The 
indices  of  the  actual  species  to  be  considered  in  the  added 
data  are  then  giveu,  in  numerical  order,  by  the  first  NN 
entries  of  the  variable  I in  common  block/TRANS^'i  Subroutine 
AXSECT  searches  through  all  pairs  (II,  JJ)  of  these  species 
with  II  < JJ,  to  find  those  for  which  cross  section  data 
have  not  been  previously  specified,  as  indicated  by  the  fact 
that  Q(1,II,  JJ)  = 0.  All  such  pairs  are  then  added  to  the 
IQ,  JQ  arrays,  starting  at  the  location  NQ(LL)  + 1,  with  the 
original  data  in  these  locations  being  moved  back  to  make 
room  for  the  new  values.  Further,  the  subroutine  sets 
Q(1,II,  JJ)  = 1,  for  all  pairs  added  to  the  IQ,  JQ  arrays 
and  revises  the  NQ  array  to  be  consistent  with  the  new  IQ, 

JQ  values,  assximing  that  all  of  the  added  pairs  are  to  be 
included  in  the  LL^h  step  of  the  cross  section  conputations . 

3.6  Subroutine  BLAYER 

The  bo\mdary  layer  calculations  in  NATA  are  carried  out 
by  the  method  described  in  Section  5 of  Volume  I (ref.  1) . 
These  calculations  are  performed  by  subroutine  BLAYER.  The 
boundary  layer  properties  are  calculated  from  the  integral  I, 
equation  1(172),  This  integral  is  used  to  determine  the  cor- 
relation parameter  n,  equation  1(174).  The  momentum  thickness 
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O,  displacement  thickness  S , shear  stress  and  heat 

fluoc  are  then  calculated  from  n and  other  quantities. 

The  overall  structure  of  BLAYER  is  diagranwaed  in  figure 
6,  The  calculations  are  all  contained  in  a D0  loop  with  index 
L running  from  1 to  NPRFLS.  In  the  case  of  a nozzle  (NPRFLS=1) , 
the  calculations  are  executed  only  once.  For  a channel 
(NPRFLS=2) , they  are  executed  twice  to  compute  the  boundary 
layers  on  the  two  pairs  of  channel  walls. 

The  subroutine  argument  FINAL  is  a logical  variable 
specifying  whether  the  new  flow  point  is  an  actua.’.  point  of 
the  solution  or  merely  an  intermediate  step  in  the  Runge- 
Kutta  integration  used  to  generate  the  nonequilibrium  flow 
solution.  For  FINAL  = .FAI£E.,  the  important  variables  used 
in  BLAYER  are  restored  to  their  values  at  the  beginning  of 
the  step  before  the  RETURN  is  executed,  and  the  calculations 
of  shear  stress  TAW  and  heat  flux  QVJD0T  are  omitted. 

IP0INT  is  a counter  for  the  flow  points  at  which  boun- 
dary layer  calculations  are  done  in  each  flow  solution.  IP0INT 
is  initialized  to  1 in  subroutine  FR0ZEQ  for  frozen  and  equi- 
librium solutions  and  in  svibroutine  N0NEQ  for  nonequilibrium 
solutions.  Each  time  BLAYER  is  called  v/ith  FINAL  = .TRUE., 

1P0INT  is  incremented  by  1 before  the  RETURN. 

Some  of  the  physical  variables  which  are  used  frequently 
are  given  short  mnemonic  names  v;hich  are  equivalenced  to  their 
standard  names  in  unlabelled  common 

3.6.1  Initializations 

When  BLAYER  is  called  for  the  first  time  in  a given 
flow  solution  (IP0INT  = 1),  a number  of  quantities 

are  set  or  initialized  by  the  statements  down  to  90.  These 
quantities  include  the  coefficient  B in  the  linear  relation 
1(164)  between  the  momentum  parameter  N and  the  correlation 
parameter  n,  and  the  transport  properties  PRW  = Pr^^  and 
VISew  = at  the  wall  temperatvire . The  wall  is  assumed 
to  be  catalytic;  hence,  these  transport  property  calculations 
are  based  on  the  mole  fractions  QPJ(K)  for  the  cold  gas  mix- 
ture, This  section  of  the  routine  also  sets  the  indicator 
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ENTRY 


IP0INT?t.l  or  L=2? 


no 


Initializations 


BLINTI=BLINT(L) 

XII=XI(L) 


FINAL? 


Compute  transport  properties,  recovery  enthalpy, 
reference  temperature,  AJ,  C0SB(L) 


1P0INT=1? 


Compute  Dm(L),  XI  (L),  BLINT(L) 
at  current  flow  point 


Numerical  integration  from  Xq  to  X to  obtain 
XI (L)  and  BLINT(L)  at  first  flow  point 


DLM(L)=DLM(L)*  C0SB(L) 


Compute  THETA(L),.  SN(L),  XSN(L),  HTR(L),  DELBL(L) 


IP0INT^1  or  .N0T.  FINAL? 


no 


L < NPRFLS  ?[ 

~ [no 

I RETURN  \ . 


Figure  6.  Flow  Chart  of  Subroutine  BLAYER 
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ITYPE,  which  specifies  the  type  of  nozzle  gecanetry: 

ITYPE  = 1 Two-dimensional  nozzle 

ITYPE  = 2 Axisyrometric  nozzle 

ITYPE  = 3 Rectangular  channel 

3.6.2  Transport  Property  and  Geometry  Calculations 

The  action  of  BLAYER  from  statement  90  down  to  270 
computes  the  values  of  various  physical  quantities  at  the  cur- 
rent flow  point,  including  the  transport  properties  and  geo- 
metric parameters  entering  into  the  boundary  layer  calculation. 

BLAYER  uses  the  viscosity  and  Prandtl  number  at  three 
temperatures,  the  wall  temperature  TWALL,  the  free-stream 
temperature,  TE,  and  the  reference  temperature  TREE.  The 
calculations  for  TWALL  are  done  only  once  per  solution  be- 
cause the  wall  ten5>erature  is  assumed  constant.  To  save  com- 
puting time,  the  transport  property  calculations  at  TE  and 
TREE  are  not  repeated  at  every  flo;;  point,  but  are  done  only 
when  the  temperature  or  the  gas  mole  fractions  have  changed 
significantly.  The  criterion  for  performance  of  the  trans- 
port property  calculations  is  a change  of  0.01  in  any  of  the 
mole  fractions  or  a change  of  0.5  percent  in  the  temperature. 
The  mole  fractions  at  which  calculations  v/ere  last  done  are 
represented  by  XTEST(J).  The  corresponding  temperatures  are 
TEP  and  TREEP. 

The  factor  r^^  in  equation  1(171)  is  denoted  by  AJ  in 
BLAYER.  Because  of  the  form  of  equations  1(171)  to  1(173), 
can  be  replaced  by  a constant  times  r^j  without  affect- 
ing the  confuted  results  for  the  boundary  layer  thicknesses, 
the  heat  flux,  and  the  shear  stress.  Eor  two-dimensional 
nozzles,  AJ  is  set  to  1,  which  is  the  value  of  r^3  for  j = 0. 
For  axisymmetric  nozzles,  AJ  is  set  to  the  geometric  area 
ratio, 

Ag  = (y/yg)^  (13) 


ORIGINAL  PAGB  Si 
OF  POOR  QUALEnir 
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which  is  Vyq  • In  the  case  of  a rectangular  channel,  for 
each  profile,  AJ  is  set  to  the  square  of  the  radius  of  the 
other  profile, since  this  radius  is  proportional  to  the  width 
of  the  surface  whose  boundary  layer  is  being  calculated. 


For  nozzles,  the  cosine  of  the  angle  b between  the 
profile  tangent  and  the  axis  is  calculated  from  dAg/dx. 
In  general. 


. 

1 

(14) 

kJ  “ ^ ■ . 

\/l  + tan^ 

b \/l  + 

(dy/dx) ^ 

where  y is  the  profile  ordinate, 
dimensional  nozzle.,  from  equation 

In  the  case  of  a 
1(118) , 

two- 

dx  ^0  dx 

(15) 

and  hence 

(16) 

— 1 1 1 ■! 

>/l  + 

(dAg/dx) ^ 

In  the  axisyrametric  case,  from  1(116), 

1 

o 

>1 

1 

(17) 

dx 

and  thus 

cos  b = - ■ ■ ■ ^ ■ 

(18) 

A . -0^ 

V 4 Ag 

,_^)2 

dx 

The  derivative  dAg/dx  in  (16)  and  (18)  is  obtained  by  calling 
subroutine  GE0MAR.  In  the  case  of  a channel,  dy/dx  is  com- 
puted by  calling  the  entry  GMAR3  of  GE0MAR,  and  cos  b is  eval- 
uated directly  from  (14). 
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The  viscosity- temperature  ejjponent  oJ  , defined  by 
equation  1(191),  is  determined  by  fitting  1(191)  to  the 
viscosity  at  the  wall  and  reference  temperatures.  The 
coefficient  A in  1(164)  (denoted  by  EKl)  is  calculated  from 
I(201)at  the  first  flow  point  (IP0INT  = 1),  and  then  held 
constant  through  the  solution. 

The  integrand of  1(172)  is  represented  by  0RDIN(L). 
Actually,  /Z)RDIN(L)  differs  from  equation  1(171)  by  a con- 
stant factor,  which  cancels  out  in  the  calculation  of  n' 

1(173)  and  thus  has  no  effect  on  the  boundary  layer  prop- 
erties. 

3.6.3  Integration  from  Xq  to  First  Flow  Point 

In  general,  the  flow  point  at  which  BLAYER  is  first 
'od  lies  upstream  of  the  throat.  The  Mach  number  at  this 
point  is  low.  However,  the  point  may  be  well  downstream  of 
the  point  Xq  at  which  boundary  layer  development  is  assumed 
to  start  (see  Sec.  5.10  of  Volume  I).  Accordingly,  the  inter- 
val from  Xq  to  the  first  point  of  the  flow  solution  is  not 
treated  as  a single  step  for  the  purpose  of  the  boundary 
layer  calculation.  Instead,  wlien  BLAYER  is  called  with 
IP0INT  = 1,  the  integral  1(172)  (denoted  by  BLINT(L))  and 
the  streamwise  boundary  layer  coordinate  / (denoted  by  XI (L)) 
are  evaluated  by  a 10-step  numerical  integration  from  Xq  to 
the  first  flow  point. 

In  the  region  covered  by  this  integration,  the  Mach  num- 
ber is  low  so  that  the  flow  can  be  approximated  as  incompres- 
sible. Also,  the  boundary  layer  is  thin  in  this  region,  in 
comparison  with  the  nozzle  or  channel  radius,  so  that  the 
effective  area  ratio  can  be  approximated  by  the  geometric 
area  ratio.  Thus,  the  continuity  equation  p u.  Ag'  = con- 
stant, can  be  approximated 

M Ag  = constant  (19) 

The  constant  in  (19)  is  represented  by  CC.  At  each  point  in 
the  integration  from  Xq  to  Xj^,  the  geometric  area  ratio  A = 
AGl  and  the  quantity  AGJ  corresponaing  to  r^j  are  calculated 
by  calling  subroutine  RADIUS,  M is  obtained  from  (19),  and  a 
quantity  0RD1  proper cional  to  0RDIN(L)  is  computed  with  the 
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approximation  a^/aQ  Pe/Po  — 1*  increment  in  / is 

computed  using  the  Pythogorean  theorem: 

(a/  )^  = (AX)^  + (Ay)^  (20) 

where  Ay  is  the  change  in  the  profile  ordinate  due  to  a 
change  ax  in  the  axial  coordinate.  BLINT(L)  is  calcu- 
lated  using  trapezoidal-rule  integration.  At  the  first 
flow  point,  DLM(L)  = di’nM/dx  is  evaluated  from  (19), 

3.6.4  Derivatives  of  the  Mach  Number 

. The  derivative  dM^/dx  of  the  flow  Mach  number  is  an 
important  variable  in  the  boundary  layer  calculation  because 
it  represents  the  uffect  of  a streamwise  pressure  gradient. 
The  related  quantity  dM^/d^  appears  in  the  formula  1(174) 
for  the  correlation  parameter,  n.  All  of  the  boundary  ^ayer 
properties  depend  upon  n. 

The  derivative  dMg/dJ?  differs  between  the  two  pro- 
files of  a channel  because  the  boundary  layer  coordinate 
lies  along  the  channel  surface  and  the  two  profiles  Imve 
different  inclinations  to  the  nozzle  axis.  The  value  of 
dJ?nMg/d^  for  the  profile  is  denoted  by  DIM(L) , It 
is  determined  by  first  computing  d in  M^/dx  and  then  cor- 
recting for  the  inclination  of  the  nozzle  vr  channel  surface 
to  the  axis.  For  each  flow  point  beyond  the  first,  d-^n  Mg/dx 
is  calculated  from  rate  data  if  the  flow  solution  is  of  non- 
equilibrixim  type  and  the  nvimerical  integration  technique  is 
being  used  (INEQ  = 1) , Otherwise,  if  the  flow  solution  is 
of  frozen  or  equilibrium  type  or  if  the  perturbation  tech- 
nique is  being  used  in  a nonequilibrium  solution  (INEQ  =0), 
dinMg/dx  is  calculated  by  n\imerical  differentiation.  If 
the  inviscid  solution  is  being  calculated  by  nonequi librium 
integration,  DLM(L)  is  calculated  from  equations  1(420), 
1(421),  and  1(291)  or  1(422).  In  the  case  of  a chemical 
nonequilibrium  gas  model  (NT  = 1) , the  stagnation  enthalpy 
hQ  is  constant  and  hence  1(421)  and  1(291)  give 


-39- 


The  variables  used  in  the  code  are 


SHJ(j)  = 


RpTo 

CCPJ(^)  • DT  = — ^ C ■ ~ 
RqTo  dx 


dH. 


%’^Q  dx 


SU  = u 


'Wf 


^0^0 


GJ(j)  = 7j 


(22a) 

(22b) 

(22c) 

(22d) 


Hence  (21)  is  coded  as 


n 

DUDX  ^ ^ [GJ(j)-CCPJ(j)‘DT  + SHJ( j)  *DGJ(j)l 

j=l 


(SCPG'DT  + SHJDGJ)  (23) 

SU 


The  sums  denoted  by  SCPG  j.nd  SHJDGJ  are  obtained  from  com- 
mon. Similarly,  in  the  case  of  an  electronic  nonequilibrium 
model  (NT  = 2),  equations  1(421)  and  1(422)  give 


DUDX  = [gJ(D  *CCPJ(1) ‘DTE 

SU  SU  • 

+ SCPGH-DT  + SHJDGj] 


where 


DOHA 


Wr 


^0*^0 


n 

SCPGH  = GJ(j)  • CCPJ(j) 

j=2 


(24) 


(25) 


(26) 
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In  (24),  quantities  subscripted  (1)  refer  to  the  electron 
species. 

For  equilibrium  and  frozen  solutions,  and  for  nonequil- 
ibrium solutions  which  are  being  developed  by  the  perturbed 
equilibrium  flow  technique  (INEQ  = 0),  the  quantities  SCPG 
and  SHJDGJ  are  not  available.  In  these  cases,  DLM(L)  is 
calculated  by  numerical  differentiation.  For  IP0INT  = 2,  a 
simple  first-order  difference  expression 


dM 

dx  Ax 


(27) 


is  used,  where  M is  the  Mach  nvimber  at  the  current  point  and 
Mp  that  at  the  previous  point.  For  IP0INT>  3,  the  following 
second-order  difference  calculation  is  used;  Let  (M, x)  be 
the  data  for  the  current  poinc  (Mp,Xp)  those  for  the  previ- 
ous point,  and  (Mpp,Xpp)  those  for  the  point  preceding  the 
previous  one.  A quadratic  fit  to  these  data  can  be  written 
in  the  form 

M = Cq  + Cj^x  + C2X^  (28) 

from  which 


c, 

dx 


+ 2C2X 


(29) 


Svibstitution  of  the  three  data  points  into  (28)  gives,  after 
elimination  of  Cq, 


(X  + Xp) 


Cl  + C2  (X  + Xpp) 


(30a) 


(30b) 
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Hence 


M-M, 


£ 


M-M, 


PP 


X-Xr 


x-x 


^2  = 


Xr 


(31) 


Now  that  C2  is  hnown,  can  be  obtained  from  (30b)  ; 


Cl  = H - C5  (x  + X ) 


(32) 


di^/dx  is  then  calculated  from  (29),  and  DLM(L)  is  obtained 
from 


dih  M ^ 1 ^ 

dx  M dx 


(33) 


3,6.5  Calculation  of  Boundary  Layer  Thicknesses 

Next,  the  increase  in  f in  the  step  from  the  previous 
flow  point  to  the  current  one  is  calculated, 


a/  = 

cos  b 


(34) 


and  ^ is  incremented  by  aF  . The  boundary  layer  integral 
I (equation  1(172)),  denoted  by  BLINT(L),  is  updated  using 
the  trapezoidal  integration  rule.  The  derivative  din  M/dx 
is  converted  into  din  M/d/  by 


din  M 
d/ 


cos  b 


din,  M 
dx 


(35) 


Then  n* , equation  1(173),  is  evaluated,  and  the  correlation 
pareimetcr  n is  calculated  from  1(174)  , The  characteristic 
length  L in  these  equations  is  taken  to  be  RO,  defined  as 
the  profile  radius  in  the  case  of  a nozzle,  and  defined  by 

2 

TT  (RO)  = throat  area  (36) 
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in  the  case  of  a channel.  The  momentvini  thickness  is  calcu- 
lated from  1(184).  If  the  flow  geometry  is  that  of  an  axi- 
symmetric  nozzle,  the  transverse  curvature  correction  1(187) 
is  applied.  The  smoothed  correlation  parameter  n,  denoted  by 
XSh(L),  is  con^juted  fron  equation  1(217). 

The  effect  of  free  stream  Mach  number  upon  the  corre- 
lations of  boundary  layer  properties  is  contained  in  the  de- 
pendence upon  the  hypersonic  parameter  o',  equation  1(190), 
The  correlations  used  in  BLAYER  are  based  upon  the  Dewey- 
Gross  calculations  (ref.  5)  fc;  a perfect  gas.  In  frozen  and 
nonequi librium  solutions,  the  parameter  CT  as  calculated  from 
1(190)  never  approaches  unity,  even  at  high  Mach  numbers,  be- 
cause of  the  frozen- in  dissociation  energy  in  hQ.  To  repre- 
sent the  Mach  number  effect  more  realistically,  the  o’  defined 
by  1(190)  is  replaced  by  etn  effective  value  defined  as 


where  is  an  effective  specific  heat  ratio.  For  a perfect 
gas,  (37j^  is  equivalent  to  1(190).  In  BLAYER,  is  calcu- 
lated as 

y = a^W/R  T (38) 

e 0 

where  W is  the  mixture  molecular  weight  and  a the  sound  speed. 

The  inccxnpressible  form  factor  HTR(L)  is  computed  from 
1(189)  and  the  displacement  thickness  DELBL(L)  from  1(188). 

In  the  case  of  a nonequilibrium  flow  solution,  the  coupling 
of  the  boundary  layer  to  the  inviscid  flow  is  switched  on 
when  the  indicator  lUPD  is  set  to  zero  in  subroutine  THRj?Ar,* 
The  only  effect  of  the  coupling  in  siibroutine  BLAYER  is  that 
the  derivatives  DDELBL(L)  of  the  displacement  thicknesses 


*IUPD  is  always  equal  to  1 in  the  frozen  and  equilibrium  sol- 
utions. 


I 


f 


f ■ 


have  to  be  calculated.  To  avoid  excessive  disturbance  of 
the  nonequilibriiun  solution,  DDELBL(L)  is  gradually  built 
up  frcxn  zero  over  29  st'^ps  in  the  flow  solution,  as  ex- 
plained in  Section  7.6  of  Volume  I. 

3.6.6  Heat  Flvsx  and  Shear  Stress 

For  FINAL  = .FALSE.,  the  boundary  layer  integral 
BLINT(L)  is  reset  to  its  value  BLINTI  at  the  beginning  of 
the  step,  and  the  boundary  layer  coordinate  XI (L)  to  its 
initial  value  XII.  Then  control  is  transferred  to  statement 
540,  the  limit  of  the  D0  loop  over  L. 

For  FINAL  = .TRUE.,  the  shear  parameter  XL  is  calculated 
frcxn  the  curvefit  1(194) ^ the  shear  stress  TAUW(L)  from  1(193), 
the  Reynolds  analogy  factor  RAF  from  1(200',  and  the  heat  flux 
QWD0T(L)  from  1(195).  Then,  if  L is  less  than  NPRFLS,  control 
is  transferred  to  the  end  of  the  D0  loop  over  L.  If  L is 
equal  to  NPRFLS,  several  physical  quantities  are  saved  for 
use  in  the  calculations  for  the  next  step.  When  the  D0 
loop  over  L has  been  completed,  diagnostic  outputs  are  written 
if  the  control  variable  ISW4B  is  nonzero,  and  the  RETURN  is 
executed. 


3.7  Subroutine  BLCALL 


During  the  nonequilibrium  solution,  all  calls  to  the 
boundary  layer  routine  BLAYER  are  made  through  subroutine 
BI^ALL.  Before  calling  BLAYER,  subroutine  BLCALL  sets  up 
certain  data  required  by  BLAYER  and  by  the  transport  prop- 
erty routines.  The  species  mole  fractions  are  computed 
from  equation  1(1)  and  loaded  into  the  common  array  SAVEC(J). 
If  the  perturbation  technique  is  still  being  used  (INEQ  = 0), 
the  perturbations  PERTGJ(J)  are  added  to  the  concentrations 
y . = GJ(J)  before  equation  1(1)  is  used.  In  this  case,  in 
addition,  the  temperature  perturbation  PCT  is  added  to  the 
nondimen si onal  temperature  CT  and  the  density  perturbation 
PRH0  is  added  to  RH0.  After  BLAYER  has  been  called,  the 
temperature  and  density  are  restored  to  their  unperturbed 
(equilibri vim)  values.  It  is  not  necessary  to  reset  SAVEC(J), 
because  this  array  is  used  only  in  the  transport,  boundary 
layer,  and  model  condition  calculations,  not  in  the  inviscid 


; 
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flow  solution.  Indeed,  subroutine  PRTA  (which  controls  the 
output  of  the  nonequilibrium  flow  solution)  calls  BLCALL  to 
load  the  SAVEC  array  even  in  solutions  neglecting  the  boun- 
dary layer  (ISW3B  = 0) , because  the  output  routine  0UT1  ob- 
tains the  mole  fractions  from  SAVEC. 

3.8  Subroutine  BXSECT 


Subroutine  BXSECT  is  used  in  searching  the  array  V in 
common  block/TRANS7/for  references  to  the  indices  of  spec- 
ies pairs  used  in  the  cross  section  computations,  and  also 
in  determining  the  correspondence  between  the  entries  in 
the  V array  and  the  steps  in  the  cross  section  computations. 
The  argument  L of  the  subroutine  is  the  index  of  the  step  in 
the  cross  section  computations,  MV  is  the  index  of  the  last 
entry  in  the  V array  used  in  step  L of  the  confutations,  and 
I and  J are  the  indices  of  the  species  pair  referenced  in  V. 
When  the  subroutine  is  called  with  L = 0,  the  other  arguments 
MV,  I,  and  J are  set  internally  by  the  subroutine  and  need 
not  be  furnished  by  the  calling  routine;  however,  all  argu- 
ments are  requied  when  L ^ 0. 

In  use,  subroutine  BXSECT  is  first  called  with  L = 0 to’ 
begin  the  search  over  the  V array.  The  routine  then  goes 
through  each  step  L of  the  cross  section  computations,  start- 
ing with  L = 1 and  checking  for  steps  with  KQ  = 9 or  12.  The 
value  of  MV  is  accTomulatcd  at  each  step  L of  the  computations 
from  the  number  of  V values  MV(KQ(L))  required  for  that  step, 
where  NV(KQ)  is  a fixed  value  which  has  been  preset  in  the 
code.  When  a step  with  KQ  = 9 or  12  is  found,  subroutine 
BXSECT  sets  i and  J to  the  indices  of  the  species  pair  ref- 
erenced in  the  V array  for  that  step  and  returns  control  to 
the  calling  program.  The  latter  program  may  then  reset  I 
and  J to  any  desired  values  and  recall  subroutine  BXSECT 
aoain  with  the  current  values  of  L and  MV  to  enter  the  revised 
data  in  the  V array  and  resume  the  search  of  the  computations 
again  from  the  point  at  which  it  was  left  off.  It  should  be 
noted  that  for  each  step  with  KQ  = 12, there  are  two  species 
pairs  referenced  in  the  V array,  and  returned  by  subroutine 
BXSECT,  while  for  KQ  = 9 there  is  only  one. 
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When  all  steps  of  the  computations  have  been  searched,  as 
indicated  by  the  index  L of  the  step  becoming  equal  to  the  num- 
ber of  steps  NKQ  in  the  edited  cross  section  data  in  common 
block /PRANS7',  the  siobroutine  sets  L to  0,  as  a signal  that  the 
search  has  been  completed,  and  returns  control  to  the  calling 
program. 


3,9  Subroutine  C0MM 

The  function  of  sxibroutine  Cj3MM  is  to  compute  some  physi- 
cal quantities  upon  which  the  rates  of  change  of  the  species 
concentrations  and  the  other  dependent  variables  depend.  The 
actual  calculations  of  the  rates  of  change  are  then  carried 
out  in  subroutine  EXACT. 


is  called  only  from  subroutine  DERIVS,  and  the  call 
to  C0MM  is  always  preceded  by  a call  to  subroutine  THERM,  which 
con5>utes  the  species  properties  at  the  current  nondimensional 
ten^erature,  CT  = T/Tq.  In  the  case  of  an  electronic  nonequi- 
librivun  model,  DERIVS  calls  THERM  tv/ice  to  obtain  the  required 
properties  at  both  the  gas  temperature  CT  and  the  electron  tem- 
perature CTE  = Tq/Tq. 


To  facilitate  the  discussion,  the  correspondence  of  scxne' 
of  the  Fortran  symbols  with  the  mathematical  notation  used  in 
Volume  I is  reviewed  in  the  following  table.  Symbols  not  listed 


are  defined 

in  Section  4.77. 

ALGJ(J) 

BETA(I,J) 

' Ay 

CHI (I) 

7.  i 

CLKP 

in 

CLKR 

^ n kj. 

CLNPI(I) 

in  Pi 

CLNIMC(I) 

in  (1  - Xi) 

CLNTD(L) 

jfn  T for  L = 
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jfn  { p ^ over  third  bodies 

(RqT)  or  (Ro'^e^  * argximent  in  can^ 
atn\/mole 

J? n ( /J  RqT)  or  Snip  RpT^) » argument  in 
atm -g /mole 

T/Tq  for  L = 1;  T^/Tq  for  L = 2 
ffi 


P-Z> 

X X 


Sn  p 

1 1 


7Aj-fn>j  or 
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T 


T8 


T9 


XttJATD(J,L) 


XNUU(I,J) 

XNUIJP(I.J) 

Z1 


Subroutine  C0MM  may  be  divided,  for  purposes  of  explana- 
tion, into  three  parts;  an  initialization  section,  a main 
loop  over  the  reactions,  and  a final  section.  These  parts 
of  the  subroutine  will  now  be  discussed. 

3.9.1  Initialization  Section 

This  section  extends  from  the  subroutine  entry  point 
through  the  statement  RCALC  = .FALSE,  (card  C0M  107).  It 
sets  up  the  ALGJ  array > computes  a number  of  sums  which  are 
required  later  in  C0MM  or  in  other  parts  of  NATA,  calculates 
the  nondimensional  flow  velocity  SU  from  the  energy  equation 
1(245),  and  calls  subroutine  GE0M  to  compute  the  gas  density. 

In  addition,  it  contains  the  controls  for  intermittent 
dumping  of  diagnostic  data  in  the  nonequilibrium  routines. 

The  indicator  for  these  dumps  is  the  integer  variable  ISW5B 
in  blank  common.  ISW5B  is  preset  to  zero.  For  the  zero 
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value,  no  dumps  are  produced.  If  ISW5B  is  set  in  the  input 
to  a positive  value,  then  dumps  are  produced  each  time  C|3MM, 
EXACT,  RNICT,  or  PRTA  is  called.  These  dumps  provide  a de- 
tailed trace  of  the  operation  of  the  nonequilibrium  integra- 
tion, but  give  several  pages  of  printed  output  for  each  inte- 
gration step.  Thus,  it  is  hardly  feasible  to  run  a complete 
solution  with  continuous  dumps.  However,  operation  of  the 
nonequilibrixim  routines  at  late  stages  in  the  solution  can 
be  studied  by  calling  for  intermittent  dumps.  This  is  done 
by  setting  ISW5B  to  a negative  value  in  the  input.  Upon  the 
first  entry  into  C0MM,  the  variable  ICYCLE  is  then  reset 
from  its  preset  value  of  90000000  to  1 ISVJ5B I . The  counter 
IC^SUNT  is  incremented  by  1 every  time  C0MM  is  entered.  When- 
ever IC0UNT  is  an  exact  multiple  of  ICYCLE,  ISW5B  is  reset 
to  1;  otherwise,  it  is  reset  to  0.  Thus,  upon  every  ICYCLEth 
entry  into  C0MM,  the  dumps  are  switched  on  and  are  produced 
in  all  of  the  nonequi librium  routines  xintil  C0MM  is  entered 
the  next  time,  when  they  are  switched  off  again.  The  coding 
of  these  controls  is  in  the  first  nine  executable  statements 
of  C0MM. 

3.9.2  Main  Loop  Over  the  Rea.„!*ions 

The  main  calculations  in  C0MM  are  performed  in  a large 
loop  headed  by  the  statement,  D0  460  1=1,  ISR  (card 
C0M  109) . Figure  7 is  a flowchart  of  this  main  loop.  In 
essence,  this  loop  performs  only  two  functions; 

1)  First,  it  computes  the  quantities  i appear- 
ing in  the  rate  equations  1(287). 

2)  Second,  in  the  case  of  an  electronic  nonequili- 
brium model,  it  evaluates  the  energy  transfer 
to  the  electron  gas  and  the  radiative  loss 
4j.  due  to  the  reactions. 


The  quantities  and  Tj  - are  computed  from  equations 
1(288)  and  1(289),  respectively,  in  logarithmic  form: 

n 

in  = in(i)  + in  - l)J?n^+  ^ J^n^.  (39) 
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Figure  7.  Flow  Cliart  of  Main  Loop  CA/or  Rcaorlour.  in  Subroutine  C0ttM 
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In  equation  (40),  the  equilibrium  constant  Kj^  in  1(289)  has 
been  expressed  in  terms  of  more,  basic  quantities  using  equa- 
tion 1(278).  In  the  summations  indicated  in  (39)  and  (40), 
terms  in  which  the  stoichiometric  factor  or  is 

zero  are  omitted. 

If  in  (1  -2.)  is  less  than  20,  and  X.  are  computed 
from  (39)  and  (4^)  using  ^ 


= exp  (inP^) 

c 

(41) 

^.  = 1 - exp  tin 

(1.  - X.)l 
1 

(42) 

and  P.  2.  is  obtained  by  multiplication.  On  the  other  hand, 
if  in  (1  - Z .)  is  greater  than  or  equal  to  20,  so  that 
(1  ~Xj)  is  greater  than  4.85  x 10®,  the  term  1 in  (1  -Z^) 
is  neglected  and  the  product  is  computed  as 


= " expUin  P^  + in  (1  - Z^)"] 


(43) 


This  algorithm  allows  the  computation  of  a finite 
value  in  situations  v/here  P^  is  so  small  that  an  exponential 
underflow  occurs  in  (41) ,but  % ^ is  negative  and  so  large 
that  P^  %.  is  within  the  range  representable  by  floating- 
point numbers.  It  also  makes  possible  a simple  treatment 
of  the  special  cases  which  arise  when  one  or  more  of  the 
'y  . are  zero,  as  discussed  below. 

If  a list  of  third-body  (catalytic)  species  has  been 
specified  for  the  reaction,  the  ejqsression  1(288)  for  P^  is 
replaced  by 
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in  which  the  sum  on  the  right  is  over  the  third-body  species 
specified.  The  corresponding  logarithmic  expression  is  (39) 
with  a term  J^n  { p ^ added  to  the  right.  The  third 

bodies  do  not  affect^  X.  » Equation  (44)  may  be  derived  from 
1(283)  and  1(287)  by  noting  that,  for  a catalytic  species 
(k) , T-'‘ik  “ Thus,  a factor  p can  be  removed 

from  both  terms  on  the  right  in  1(283).  If  the  i^^  reaction 
involves  more  than  one  third-body  species,  each  such  species 
gives  a separate  three-body  reaction.  The  effects  of  these 
reactions  can  be  summed  to  give  a single  reaction  with  an 
effective  third-body  concentration  which  is  the  sum  of  the 
concentrations  of  the  actual  catalytic  species,  as  in  (44) . 

In  the  case  of  an  electronic  nonequilibrium  gas  model, 
there  are  two  temperatures,  the  gas  temperature  T and  the 
electron  temperature  T^.  The  forward  reaction  rate  k^^  can 
depend  on  either  T or  Tg,  or  both,  or  neither.  The  form  of 
temperature  dependence  of  kfj^  is  specified  by  the  array  KTF(I), 
If  the  indicator  KF  = KTF(I)  is  equal  to  1,  k£j^  is  given  by 
1(69).  If  KF  is  equal  to  2,  the  temperature  T in  1(69) is  re- 
placed by  Tg.  This  procedure  is  coded  by  placing  the  two  non- 
dimensional  temperatures  into  a two-element  array  CTD(L),  and 
placing  the  logarithms  of  the  two  temperatures  (expressed  in 
degrees  Kelvin)  into  an  array  CLNTD(L).  Both  cases  are  then 
treated  by  a single  formula  involving  CTD(KF)  and  CLNTD(KF), 
i.e.,  statement  190  of  C0MM,  which  evaluates  in  kfi  from 

to  kji  = A Ci  + in  ^ ,45) 

where  T^  is  equal  to  T for  k = 1 and  equal  to  T^  for  k = 2. 

In  (45),  iiCi=  ihA^  - Vj^indO^). 

Three  special  forms  for  the  forward  reaction  rate,  used 
in  the  electronic  nonequilibrium  model  for  argon  (Appendix  A 
in  Volume  II),  are  indicated  by  KTF(I)  = 3,  4,  and  5.  For 
KTF(I)  = 3,  k£  is  assumed  to  be  given  by 


k 


f 


-Ei/RoT) 

(1  - e 


(46) 
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where  Ej^  is  a parameter  with  dimensions  of  energy.  For 
KTF(I)  = 4, 


max  (1,  T:  ) 


where 


i:  = b 


(47) 


(48) 


Here  R is  the  local  nozzle  radius  (or  equivalent  radius  in 
the  case  of  a channel),  arid  is  the  concentration  of  the 
product  atom  in  the  reaction.  For  KTF(I)  = 5, 


(49) 


In  NATA,  the  reverse  rate  constant  is  calculated 
from  the  detailed-balancing  relation  1(277),  using  the  equi- 
librium constant  K^,  equation  1(278).  In  electronic  non- 
equilibrium gas  models,  the  coding  of  C0MM  allows  for  three 
types  of  temperature  dependence  of  Kj^.  If  the  indicator 
KR  = KTF(I)  is  zero,  the  reverse  reaction  is  assumed  to  occur 
only  at  a negligible  rate.  If  KR  is  1,  is  calculated  from 
1(278)  using  the  gas  temperature  T.  If  IR  = 2,  the  tempera- 
ture T in  1(278)  is  replaced  by  T^.  The  chemical  potentials 
/A  in  1(278)  are  temperature  dependent.  During  calculations 
based  on  an  electronic  nonequilibrium  model,  both  ^,°(T)  and 
p..°(Tg)  are  computed,  and  these  data  are  stored  in^the 
douS)ly  dimensioned  array  XMJAT(J,L)  with  dimensions  (20,2). 

The  coding  of  equation  (40)  utilizes  the  array  with  the  index 
L = KR  so  that  both  cases  can  be  treated  using  a single  for- 
mula, card  C0M  153. 


Cases  in  which  one  or  more  of  the  concentrations  V . = 0 
require  some  special  consideration  because  of  the  appearance 
of.  Xn'y  . in  the  formulas  used  in  C0MM.  In  NATA,  the  Vj  are 
represented  by  the  double  precision  array  GJ(J).  A zero 
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value  for  an  element  of  this  array  could  come  about  in  one 
of  two  ways: 

(1)  One  of  the  concentrations  GJ(J)  could  underflow 
as  a result  of  its  decrease  during  the  flow  sol- 
ution. However,  this  is  most  unlikely  to  occur 
in  practice  because,  to  underflow,  GJ(J)  must 
fall  below  10“^^  (on  the  IBM  360/75)  or  below 
10-308  the  UNIVAC  1108).  Since  GJ(J)  can 
decrease  by  no  more  than  10  percent  in  a single 
integration  step  because  of  step  size  controls, 
the  number  of  steps  required  to  reach  underflow 
from  initial  reservoir  values  of  (say) 10“^  to 
10”20  ig  Qf  the  order  of  1000  or  more,  even  on 
the  IBM  360.  Also,  unless  the  control  parameter 
GAMIN  were  set  to  zero,  the  decrease  of  GJ(J) 
would  be  stopped,  long  before  underflow  was 
reached,  by  the  freezing  of  minor  species  (Sec- 
tion 7.5.3  of  Volume  I). 

(2)  A zero  GJ(J)  value  could  arise  accidentally, 
at  an  intermediate  point  in  the  Treanor-Runge- 
Kutta  integration  step,  as  a result  of  a nega- 
tive A V . which  happened  to  be  exactly  equal 
in  magnitude  to  the  Y . value  at  the  start  of 
the  step.  This  is  quiie  unlikely,  but  it  could 
happen . 

To  allow  for  these  rather  remote  possibilities,  the  cod- 
ing of  C0MM  is  designed  to  cope  with  zero  concentrations  if 
they  should  occur.  If  one  of  the  species  concentrations, 

V,  » is  zero,  four  special  cases  can  arise,  depending  upon 
the^values  of  the  stoichiometric  coefficients  -u 

in  the  reaction  1(219):  ^ 

Case  1: 


Case  2: 


-t/  = -ty  * “ 0 

(50a) 

II 

o 

H- 

V 

o 

(50b) 
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Case  3: 

^ik  > 

0, 

•^’ik  = 0 

(50c) 

Case  4: 

ik 

0, 

>0 

ik 

(50d) 

In  the  Cornell  Aeronautical  Laboratory  program  from  which 
NATA  was  derived,  each  of  these  cases  was  treated  separately 
by  special  coding.  In  the  present  version  of  the  code,  all 
of  these  cases  are  treated  using  the  formulas  (39)  to  (44) 
with  the  aid  of  a computational  artifice. 

Cases  involving  zero  species  concentrations  / . require 
special  consideration  because  of  the  appearance  of^'^ny.  in 
the  formulas  (39)  and  (40).  Any  attempt  of  the  program"^ to 
evaluate  yn  0 would  lead  to  immediate  termination  of  the  run  by 
the  computer  operating  system.  In  subroutine  C0MM,the  quantities 
iny.  are  stored  in  an  array,  ALGJ(J).  For  species  whose  concen- 
trations are  zero,  ALGJ(J)  is  set  to  a large  negative  nrjnter.L, 
whose  magnitude  is  chosen  in  accordance  with  the  following  criteria: 

(1)  L must  be  sufficiently  large  in  magnitude  that, 
even  when  combined  additively  with  other  terms 
as  indicated  in  (39)  and  (40) , it  is  suffici- 
ently negative  to  produce  a guaranteed  exponential 
underflow,  i.e., 

exp(L  + other  terms)  = 0 (exactly)  (51a) 

This  will  happen  so  long  as  the  argument  of  the  ex- 
ponential function  is  less  than  about  -83  on  the 
UNIVAC  1108  or  less  than  about  -180  on  the  IBM 
360/75. 

(2)  L must  be  sufficiently  small  in  magnitude  that 
the  operation 

L + other  terms  - L = other  terms  (51b) 

gives  a result  for  "other  terms"  containing  sev- 
eral significant  digits  of  accuracy.  The  "other 
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terms"  in  equations  (39)  and  (40)  arc  all 
natural  logaritliras  of  the  values  of  physical 
quantities  whose  values  lie  roughly  in  the 
range  10“20  to  10^^;  thus,  the  logarithms 
range  from  about  -50  to  +50.  The  second  con- 
dition can  thus  ba  satisfied  by  taking  L to 
be  less  than  about  10'^  or  10^.  If  L were 
chosen  to  be  much  larger,  say  10^*^,  then  the 
first  addition  in  < lb)  would  give  L + other 
term  = L (exactly)  on  the  UdlVAC  1108,  be- 
cause the  change  in  L due  to  addition  of  the 
"other  terms"  would  be  less  than  the  accuracy 
with  which  L can  be  represented  as  a floatin.- 
point  number  (about  8 significant  figures). 

In  subroutine  C0MM,  L has  been  chosen  to  be  -1  ,00,  r. 
value  which  clearly  satisfies  both  conditions. 

Now  assume  that  a particular  c^iicentratiou  is  zero. 

With  i'n  X = h,  the  formulas  (39)  a..d  (40)  treat  the  four  cases 
(50)  as  follows: 

In  Case  1,  and  are  both  zero,  so  that  the 

term  Jin  does  not  actually  appear  in  either  (39)  or  (40)  . 

In  this  case,  according  to  (50a),  the  species  k whose  concen- 
tration is  zero  does  not  participate  in  the  reaction  as 
either  a reactant  or  a product. 

In  Case  2,  i’nT  does  lot  appear  in  (39),  so  that  rhe 
evaluation  of  ,?n  Pj^^proceeds  normally.  However,  ik 

is  positive,  so  that  the  right  hand  side  of  (40)  contains  a 
term  h which  is  negative  and  large  in  magnitude.  The 

resulting ^exponential  underflow  during  the  evaluauion  of  (42) 
then  gives  X =1.  This  is  the  correct  result  for  this  case, 
since  ^ is  a zero  factor  in  the  second  term  on  the 

right  in  equation  1(289). 

In  Case  3,  equations  (39)  and  (40)  can  be  written 

Pi  = Jin  (-J)  +,Fnkfi  +(  v-  l)^np+  2 V.  . Y + l 

jA  (52a) 
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An{l-Z^)  = /n  ( ^ RqT)  + 2 


- V.,  (L  + ) 

R,.T 


(52b) 


Here  the  terra  - 1/  L on  the  right  in  (52b)  is  positive  and 
very  large;  thus, ^equation  (42)  is  not  used  and  the  product 
is  evaluated  using  (43) , which  gives 

Pi  = - exp  l^n  (1)  + >(n  k^i  +(  X)Stip  +/3iin  {p  r^t) 

§ • g “‘i 


jA 
fi.+  v.-i 

TT  V. 


(S3) 


The  terras  involving  L have  cancelled  out.  The  validity  of 
equation  (53)  for  Case  3 can  be  verified  directly  by  raulti- 
plying  equation  1(288)  and  1(289),  letting  o,  and  taking 

(50c)  into  account. 

In  Case  4,  equations  (39)  and  (40)  giva 


in  Pi  =>fn(i)  +ir.kfi  + ( 1)  Jn  p + E ^i j 

:A 


+ V..  L 
ik 


(54a) 


ih(l-x  ) = /5,^(^r„t)  . Z 

j/'*  ^0 


(54b) 
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Addition  of  these  two  equations  gives 


in[Pi(l  =ln(l)  +inicfi  + ^ "^i”  D/n^  + /3iin  R^T) 

"-3  D 13  RnT  Rjr 


+ V L 
ik 


I 

Sxnce  -j/  I*  is  negative  and  large  in  magnitude,  (55)  im- 
plies that 

P^(l  = p.  - P.  ;Ti  = 0 (56) 

Also,  (54a)  and  (41)  give  Pj|^  = 0;  thus,  Pi^jL  = i®" 

suit  is  correct  for  Case  4,  as  may  be  seen  by  setting  one  of 
the  'V ^ to  zero  in  1(286)  and  taking  (50d)  into  account. 

The  preceding  analysis  can  easily  be  generalized  to  in- 
clude cases  in  which  more  than  one  of  the  concentrations  is 
zero.  Thus,  the  artifice  of  setting  A 'X  = L when  = 0 
provides  a satisfactory  treatment  of  all  cases  that  can  arise. 

In  calculations  for  a chemical  non equilibrium  model 
(NT  = 1) , the  main  loop  provides  only  calculations  of  P^  and 
P-  In  calculations  for  an  electronic  nonequilibrium  model 

the  loop  also  computes  the  contributions  to  the  energy  trans- 
fer to  the  electron  gas  (QDPE)  and  the  radiative  power  loss 
(QDPR) . These  computations  are  provided  by  the  coding  below 
statement  390,  and  simply  consist  of  evaluaticn  of  the  formu- 
las 


( q^)  . = kfi 


^ri^ri  !l, 
1 = 1 


(57a) 
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( Aqj.)  . = kfiqfi  IT  </>%>  - ’"ri^ri  '•  ^ 

j=l  ^ j=l  ^ 

(57b) 

which  are  obtained  by  combining  equations  1(320)  and  I(321b,c). 
In  equations  (57),  (/^q-)^  and  ( Aqj-)  denote  the  contributions 
of  the  i'th  reaction  to  q^  and  qj.,  respectively.  The  energy 
partition  parameters  ^fi*  "^ri  obtained  by  cal- 

ling subroutine  EPART.  "feffecll  of  third-body  species,  if  any, 
are  taken  into  account  using  the  quantity  CLTBF  = Jn  ^ ^ ^ ' 

already  evaluated  during  the  computation  of  X 

3.9.3  Final  Section 


After  the  main  loop  over  the  reactions  has  been  completed, 
C0MM  checks  the  value  of  INEQ.  If  this  indicator  is  zero  (i.e., 
if  the  perturbation  technique  is  still  being  used  to  generate 
the  flow  solution) , the  RETURN  is  executed  immediately.  If 
INEQ  is  nonzero  (i.e.,  if  the  numerical  integration  of  the 
rate  equations  has  been  started),  calculates  the  non- 

dimensional  pressure,  PRES  = p/Pg*  ^ chemical  nonequili- 

briura  model  is  being  used,  the  pressure  is  computed  from  equa- 
tion 1(273)  in  the  fprm 


If  an  electronic  nonequilibrium  model  is  in  use,  equation 
1(323)  is  used  to  calculate  the  pressure  in  the  form 


_E_  = . w„ 

Po  ^0  ’’o 


In  either  case,  p/pg  is  then  divided  by  R0BARA  = /Og  to 

eliminate  the  effects  of  gas  imperfections,  if  any,  upon  the 
value  of  tie  reservoir  density,  This  is  done  because  gas 

imperfections  are  not  taken  into  account  in  the  nonequi li- 
brium integration,  as  explained  in  Section  2.5  of  Volume  I. 

In  addition,  the  gas  entropy  is  calculated  from  equation  1(251). 


; 
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If  an  electronic  nonequilibrium  model  is  in  use,  C0MM 

confutes  the  contribution  to  the  electron  energy  transfer 

6 from  elastic  collisions,  using  the  formula 
^e 


( ^qJ 


e'  elas 


1 Rq(T  - T^) 


where  for  neutral  species  j,  the  collision  frequency  is 

given  by 


3 


D 


and  for  ionic  species 

_ ^ /tT  

■*^ei  ■ 3V  nu.  C 


■*^ei  3 V me  (2k  T )3/2 


.n  (^7-^—) 
/(  nge*" 


These  formulas  are  derived  in  Appendix  A of  Volume  II;  see 
equations  11(25-31).  The  notation  is 

Wg,Wj  molecular  weights  for  electron  and  species 

r^=NqP')^  electron  concentration 

Hj  concentration  of  a neutral  atom  or  molecule 

n.  concentration  of  an  ion 

X 

Maxwell-averaged  momentum  transfer  cross  sec- 
tion (assvuned  the  same  for  all  neutrals) 

m electron  mass 

e 

k Boltzmann  constant 


Avogadro  number 
electronic  charge  (esu) 
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In  NATA,  the  cross  section  Q^j  ' is  obtained  by  calling 
the  function  PI0MEG(TEP) . The  constant  factors  in  (61)  and 
(62)  are  represented  by  VTCl,  VIC2,  and  VNC,  and  are  preset 
in  a data  statement  in  C0MM.  Equation  (60)  is  evaluated 
straightforvvar dly,  and  the  result  QELAS  = (^^Iq^)  is 

added  to  the  q^  due  to  the  reactions  to  obtain  the  total 
rate  of  energy  transfer  to  the  electron  gas. 


3.10  Subroutine  CXSECT 


Subroutine  CXSECT  is  used  by  subroutine  XSECT  to  deter- 
mine the  correspondence  between  species  pairs  in  the  master 
species  list  for  the  code  and  in  the  rearranged  species  list 
stored  in  the  common  variable  I(J)  (see  the  discussion  of 
subroutine  XSECT  below) . When  the  subroutine  is  called  with 
its  arguments  set  equal  to  the  indices  of  a pair  of  species 
in  the  master  species  list,  it  returns  the  arguments  as  the 
indices  of  the  corresponding  species  pair  in  the  rearranged 
list.  If  the  original  indices  are  denoted  by  L,J,  the  cor- 
responding revised  indices  are  I(L),  I(J)  if  L-J  and  I(L)-I(J) 
have  the  same  sign,  and  are  I(J),  I(L)  otherwise. 


3.11  Subroutine  DERIVS 

During  the  nonequilibrium  solution,  the  derivatives  of 
the  dependent  variables,  including  the  species  concentrations, 
are  calculated  by  calling  subroutines  THERM,  C0MM,  and  EXACT 
in  sequence.  If  an  electronic  nonequilibrium  gas  model  is  in 
use,  THERM  must  be  called  twice,  once  with  CT  = T/Tq,  and  once 
with  CT  = T^/Tq,  to  provide  species  properties  at  both  the 
gas  temperature  and  the  electron  temperature.  The  use  of  these 
properties  has  been  explained  in  the  analysis  of  subroutine 
C0MM.  Also,  if  the  boundary  layer  is  being  included  in  the 
f3.ow  solution,  an  iteration  Is  necessary  to  determine  the 
self-consistent  solution  for  the  boundary  layer  displacement 
thickness  S*  and  the  derivatives  of  the  flow  variables  (Sec- 
tion 7.6  of  Volxime  I).  These  calculations  are  called  for  at 
several  locations  in  subroutines  N0NEQ  and  RNKT.  For  compact- 
ness of  coding,  these  operations  are  all  placed  in  a separate 
subroutir"  , DERIVS. 
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For  an  electronic  nonequilibrium  model  (TN  = 2) , DERIVS 
saves  the  current  value  of  CT  in  the  location  CTSAVE,  resets 
CT  to  CTE  = Tq/Tq,  and  calls  TEIERM  to  compute  the  species 
properties  at  the  electron  temperature.  The  values  (Tg)/ 
RoTg  are  stored  directly  into  XMJATD(I,2).  The  enthalpy, 
specific  heat,  and  entropy  of  the  electrons  are  saved  tempo- 
rarily in  the  locations  HJE,  CPJE,  and  SENTE.  Then  CT  is 
reset  to  the  value  T/Tq  and  THERM  is  called  again  to  compute 
the  species  properties  at  the  gas  temperature.  THERM  over- 
writes the  previously  calculated  data  for  the  electrons 
(species  1) , but  these  are  reset  from  HJE,  CPJE,  and  SENTE. 

For  a chemical  nonequilibrium  model  (NT  = 1)  , THERM  is 
called  only  once,  to  obtain  the  properties  for  all  the  spec- 
ies at  the  gas  temperature,  T. 

In  either  case,  DERIVS  next  calls  C0MM  and  EXACT  to  com- 
pute the  derivatives  of  the  specif^  s concentrations  and  other 
dependent  variables.  It  then  applies  the  condition  I (407b) ; 
if  this  condition  is  violated,  the  indicator  FAILED  is  set 
to  .TRUE,  and  a RETURN  is  executed. 

The  remaining  portion  of  DERIVS  controls  the  iteration 
to  obtain  a self-consistent  solution  for  the  boundary  layer 
displacement  thickness  and  the  derivative  d ^h  M/dx  of  the 
logarithm  of  the  Mach  number.  If  the  boundary  layer  is  not 
being  included  in  the  flov;  solution  (ISW3B  = 0) , or  if  the 
solution  is  still  in  the  upstream  (uncoupled)  region  (lUPD  = 1) , 
this  iteration  is  not  perfonned.  The  technique  used  in  the 
iteration  is  explained  in  Section  7.6  of  Volume  I,  in  the  vic- 
inity of  equation  1(424). 

3. 12  Subroutine  DSMS0L 

DSMS0L  is  the  subroutine  called  for  simultaneous  solu- 
tion of  systems  of  linear  equations  in  the  calculation  of 
thermochemical  equilibrium  conditions,  in  the  equilibrium 
flow  solution,  and  in  the  nonequilibrium  solution.  The  cal- 
ling sequence  for  DSMS0L  was  embodied  in  the  original  program 
version  received  from  Cornell  Aeronautical  Laboratory  (refer- 
ence 6),  but  the  subroutine  itself  was  not  provided  by  CAL  be- 
cause it  was  written  in  machine  language  and  would  not  be  oper- 
able on  other  types  of  computer  system.  To  provide  the  required 
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capability  for  solution  of  systems  of  equations,  subroutine 
SIMQ  from  the  IBM  Scientific  Subroutine  Package  (reference 
7)  was  incorporated  into  NATA,  and  a Fortran  DSMS0L  routine 
was  written  to  rearrange  the  data  for  the  equations  from  the 
form  provided  by  the  CAL  routines  into  the  form  requi red  by 
SIMQ. 

For  a system  of  linear  equations 


= bj  (j  = 1. i) 

k=l 


in  i unknowns  •••»  » NATA  stores  the  coefficients 

ajk  and  constants  bj  in  the  double  precision  array  AA  in 

unlabelled  common.  The  dimensions  of  AA  are  (22,24).  The 

matrix  of  coefficients  a.,  is  stored  as 

Dk 


^jk  ” AA(j,k) 


{j  — 1, . . . , 1 

k “ 1,...,  X 


The  constants  b . are  stored  as 
3 


b^  = AA(j,  i + 1) 


Subroutine  SIMQ  (discussed  below)  requires  that  the  coef- 
ficients a be  stored  colunmwise  in  a singly  dimensioned 
array  A,  without  gaps,  and  that  the  constants  b.  be  stored  in 
2U1  array  B.  DSMS0L  reorganizes  the  data  into  t^is  form,  using 
the  storage  locations  of  the  array  AA  to  contain  A and  B.  The 
array  A is  ass: gned  to  the  first  i^  storage  locations  in  AA, 
that  is,  AA(1,1),  AA(2,1),  ...,  A(22,l),  AA(1,2),  AA(2,2),... 
The  array  B is  assigned  the  first  i storage  locations  in  the 
23^*^  column  of  AA,  that  is,  AA(1,23),  ...,  AA(i,23).  If  the 
number  of  equatio’^s  i is  equal  to  22,  the  reorganization 
leaves  the  matrix  AA  unaltered.  If  i is  less  than  22,  the 
coeffi  ients  aj^  are  shifted  do\\?n  so  as  to  fill  up  the  first 
columns  of  AA  without  gaps,  and  the  constants  bj  are  shifted 
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up  into  the  previously  unused  23^*^  column.  After  SIMQ  has 
been  called,  the  solution  values  provided  by  SIMQ  are 
shifted  from  the  23^^  column  into  the  (i  + l)th  column,  for 
use  by  the  calling  routine. 

The  coding  of  DSMS0L  is  straightforward,  and  can  be  fol- 
lowed easily  with  the  help  of  the  definitions  given  in  the 
glossary  of  Fortran  symbols  (Section  4,80). 

3.  13  Subroutine  DUMP 

DUMP  is  part  of  the  NATA  system  for  dealing  with  pos- 
sible errors  in  code  operation.  NATA  contains  numerous  val- 
idity checks.  If  one  of  these  is  violated,  the  routine 
in  which  the  error  was  detected  calls  DUMP.  This  small  sub- 
routine sets  the  indicator  ERR  to  .TRUE,  and  writes  a message 
giving  the  name  RNAME  of  the  calling  routine.  It  then  returns 
control  to  the  calling  routine.  The  calling  routine  then  exe- 
cutes a RETURN.  At  each  higher- level  routine,  statements  of 
the  form  IF (ERR)  RETURN  pass  control  up  is  still  higher  lev- 
els until  the  main  program  is  reached.  In  MAIN,  when  a .TRUE, 
value  of  ERR  is  detected,  sxib routine  DUMPEX  is  called  to 
print  diagnostic  data  (see  belaid?) . After  the  return  from 
DUMPEX,  MAIN  proceeds  as  if  a normal  case  completion  had 
occurred;  i.e.,  the  job  is  not  terminated  unless  the  input 
ISW4A  ?s  zero. 

Originally,  the  operations  now  performed  by  DUMP  and 
DUMPEX  were  included  in  a single  subroutine  (called  DUMP) . 

When  NATA  become  so  large  that  it  had  to  be  run  using  overlay 
on  the  UNIVAC  1108,  the  original  DUMP  routine  was  divided  into 
two  parts,  5uid  the  larger  of  these  (DUI4PEX)  was  placed  into  a 
separate  overlay  segment  so  as  to  minimize  the  core  storage 
requirement. 

3.14  Subroutine  DUMPEX 

DUMPEX  produces  the  diagnostic  dumps  when  an  error  has 
been  detected  in  the  operation  of  the  code.  The  routine  con- 
tains unlabelled  common  and  many  of  the  labelled  common  blocks 
useu  in  NATA.  When  DUMPEX  is  executed,  most  of  the  variables 
and  arrays  listed  in  these  common  statements  are  printed  out 
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in  namelist  format.  In  addition, if  a binary  tape  of  data  for 
plotting  is  being  written  (DATAPE  = .TRUE.),  DUMPEX  back- 
spaces this  tape  to  eliminate  all  of  the  records  written 
during  the  current  case. 

3. 15  Subroutine  ELC0ND 

Subroutine  ELC0ND  computes  the  electrical  conductivity 
SIGMA  of  the  gas  in  mhos/cm  from  equation  1(98)  using  the 
values  of  SSIG  = (eA)V  /t  and  Q(1,I,J)  = k“^  ^ T com- 
puted in  subroutine  TRANSP.  In  this  computation  it  as- 

sumed that  if  electrons  are  present  in  the  gas,  they  are  the 
first  species.  If,  on  the  other  hand,  electrons  are  not  pre- 
sent (lELEC  = 0),  the  electrical  conductivity  is  set  to 
0.0  and  the  computation  is  bypassed. 

3.16  Subroutine  ELTIME 

The  function  of  subroutine  ELTIME  is  to  determine  and 
print  out  the  elapsed  execution  time  since  the  beginning  of 
the  run.  When  NATA  is  run  on  the  UNIVAC  1108,  ELTIME  uses 
the  utility  routines  i SET  and  TIME,  which  are  ^ *ovided  by 
the  EXEC  II  operating  system.  When  the  code  is  used  on  the 
IBM  360/75  at  Avco,  the  functions  of  RESET  and  TIME  are  simu- 
lated by  a small  Fortran  program  (called  RESET,  Sec.  3.58) 
which  utilizes  the  system  subroutine  ACUCPU. 

ELTIME  contains  a logical  indicator  CALLED,  which  is 
preset  to  .FALSE,  in  a data  statement.  When  ELTIME  is  called 
for  the  first  time  in  a job,  a test  on  CALLED  leads  to  a call 
to  RESET,  which  initializes  the  time  counter  I for  subroutine 
TIME  to  0,  and  ET0  and  ET  are  both  set  to  zero.  Also,  CALLED 
is  set  to  .TRUE. , so  that  this  part  of  the  routine  is  bypassed 
when  ELTIME  is  called  on  subsequent  occasions  in  the  run. 

In  such  subsequent  calls,  ELTIME  sets  ETP  = ET0,  and 
then  sets  ET0  to  ET,  where  ET  is  the  value  left  in  storage 
by  the  previous  call  (unless  this  argument  has  been  altered 
by  the  calling  routine).  Then  ELTIME  calls  subroutine  TIME(I), 
which  returns  the  elapsed  time  I since  the  call  to  RESET,  mea- 
sured in  milliseconds.  ELTIME  converts  this  time  to  seconds 


; 
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and  stores  it  in  ET.  Then,  unless  the  argument  IP  is  zero, 
ELTIME  converts  ET  into  minutes  ^md  stores  the  result  in  ETM, 
and  also  confutes  the  elapsed  time  DET  in  seconds  since  the 
last  previous  printed  output  of  the  tine.  A message  is  then 
printed  giving  ETM  and  DET.  If  the  printed  message  is  skipped 
because  IP  = 0,  ET0  is  reset  to  ETP  to  maintain  its  signifi- 
cance as  the  elapsed  time  since  the  printing  of  the  last  time 
message. 


3.17  Subroutine  EPART 

This  subroutine  computes  the  parameters  governing  the 
partition  of  reaction  energy  between  radiative  loss  and 
energy  transfer  to  the  electron  gas  for  each  reaction  in 
a gas  model  which  includes  electronic  nonequilibrium.  The 
arguments  in  the  calling  sequence  are  defined  in  Section  4.85. 
The  subrovtine  treats  six  cases,  or  types  of  reactions,  which 
are  distinguished  by  an  index  IT.  In  the  following  discussion 
of  these  cases,  = EF  and  ~ = ~ER  denote  the  energies 

gained  by  the  electron  gas  in  one  mole  of  reactions  in  the 
forward  and  reverse  directions,  respectively;  and  q£  = QF 
and  -q^  = -QR  denote  the  corresponding  energies  lost  by  rad- 
iation'. 

The  six  cases  are 

IT  = 1 = -a  RqT^ 
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In  these  formulas,  C = EO  denotes  the  energy  available  for 
partitioning  between^the  electrons  and  the  radiative  losses, 

R the  universal  gas  constant  (lo9872  cal/mole-deg) , and  Tg 
tfie  electron  temperature  (*^K) . 

3. 18  Subroutine  EQCAIX; 

EQCALC  computes  the  conditions  of  thermochemical  equi- 
librium at  specified  temperature  T ('^K)  and  pressure  P (atm) , 
using  the  method  explained  in  Section  6.1  of  Volume  I.  As 
an  aid  to  following  the  coding,  the  correspondence  of  Fortran 
and  mathematical  symbols  is  reviewed  in  the  following  list: 


BET(l) 

0/  * - 1 
i-c 

(1  = 

i-c) 

CDIJ(I,J) 

i-c,  j 

(I  = 

i-c) 

CGI (I) 

w. 

3. 

QM(I) 
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XMJAT(I) 

ZCAP(I) 

ZGMU(I)  J,nX^ 

ZPZ  inp 


EQCALC  first  saves  the  current  value  of  the  nondimen- 
sional  temperature  CT  in  the  location  CTSAVE.  This  is  done 
because  EQCALC  may  be  called  with  temperatures  T differing 
from  the  temperature  at  the  current  flow  point  (for  example, 
during  the  equilibrium  normal  shoch  solution) . The  nondim- 
ensional  temperature  CT  is  then  reset  to  T/Tq  to  allow  cal- 
culation of  the  species  thermal  properties  by  calling  sub- 
routine THERM. 

Next,  EQCALC  computes  initial  estimates  of  the  species 
mole  fractions  anc  related  quantities.  The  mole  fractions 
for  the  independent  speciec  (I  = 1 to  ISC)  are  set  to  = 
QM(I) , defined  by  equation  1(10).  If  any  of  the  QM(I)  are 
zero  or  negative  (due.  to  roundoff  errors) , the  corresponding 
ZCAP(I)  values  are  reset  to  10“3.  Subroutine  THERM  is  then 
called  to  compute  the  thermal  properties  of  all  the  species 
at  temperature  T.  The  mole  fractions  for  the  dependent  spec- 
ies (I  = ISC  + 1 to  ISS)  are  then  estimated  using  equation 
1(224),  which  can  be  written  in  the  logarithmic  form 

c 

in  X,  = CHIl(i-c)  + 22  7/.  ,inx.  (66) 

^ i-C.D  3 

where 

o c ^ 

CHIT(i-c)  = - ^ + <V*  -X)in  p + 2 ^ 

^ ^ J = 1 0 

(67) 


In  this  calculation,  SKIL(i)  is  used  as  an  intermediate  vari- 
able, first  to  represent  -^n  .then  If  the  number  of 

dependent  species,  ISMC  = n-c,  is  zero,  then  the  calculation  of 
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the  dependent  species  mole  fractions  is  skipped  here  and  else- 
where in  EQCAIiC. 

Once  initial  estimates  of  the  and  xn  have  thus  been 
determined,  EQCALC  enters  the  Newton-Paphson  iteration  based  on 
equations  1(277)  to  1(233).  The  iterative  loop  runs  from  state- 
ment 70  down  to  (but  not  including)  statement  220.  The  constant 
terms  Fj,  equation  1(227),  in  the  system  of  linear  equations 
I (233a)  for  the  corrections  hp-  are  loaded  into  the  Ml^^^  column 
of  the  matrix  AA  by  the  D0  loop  ending  at  statement  90.  Note 
that,  in  statement  80,  for  i = c + 1 to  n is  denoted  by 
SKIL(i)  . Then  the  matrix  of  coefficients  -Xj^^(  3F./  9X^^)^,  equa- 
tion I (233b),  IS  loaded  into  the  first  ISC  rows  arid  columns  of 
AA  by  the  nest  of  D0  loops  ending  at  statement  140.  Subroutine. 
DSMS0L  is  then  called  to  solve  the  system  of  equations  for  the 
correction  fcictors  Upon  the  return  from  DSMS0L,  the  solu- 

tion values  for  these  quantities  are  obtained  from  the  Ml'^^  col- 
umn of  the  matrix  AA,  where  Ml  = ISC  + 1. 

The  corrected  values  of  the  species  mole  fractions  are  then 
calculated.  The  mole  fractions  for  the  independent  species 
(i  = 1 to  c)  are  obtained  using  equation  1(234): 

X3^^+l  = (1  + hj^^)  • Xj^r  (68) 

The  fc'.ctor  1 h^^  is  denoted  by  ZA.  If  ZA  is  zero  or  negative, 

the  corrected  mole  fracti^'n  is  estimated  by  halving  che  previ- 
ous value: 

= Xy^^/2  (69) 

These  calculations  are  done  in  the  D0  loop  ending  at  statement 
180. 


The  corrected  mole  fractions  for  the  dependent  species  er 
calculated  from  the  equilibrium  relations  1(224),  based  on  the 
corrected  Xj^  for  the  independent  species.  Equations  (66)  and 
(67)  are  again  used,  ir  the  D0  loop  ending  at  statement  200. 

The  convergence  test  for  the  Newton-Raphson  iteration  is 
that  the  absolute  values  of  all  the  h^^  be  less  than  or  equal 
to  a criterion  value  TEST,  which  is  preset  (in  subroutine  INIT) 
to  10"^.  If  convergence  has  not  been  achieved  after  NTEST  = 100 
iterations,  the  DUM’.  routine  is  called  to  terminate  the  case  and 
j produce  diagnostic  output. 
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When  convergence  has  been  achieved,  EQCALC  computes  a 
number  of  gas  properties  based  on  the  temiDoraturc  T,  the 
pressure  P,  and  the  equilibrium  mole  fractions  determined 
by  the  Newton-Raphson  solution  of  equations  1(227).  The 
nondimensional  molar  entropy  of  the  gas  mixture,  ZSEN  = S/Rq, 
is  calculated  using  equation  I (30b).  Note  that  the  specific 
entropy  of  the  } as  is  equal  to 


s = (|_)  ■ ^ = ZSEK_1_£EA_ 

Rq  ^ 2CM 

in  cal/gm  *^K.  The  nondimensional  molar  enthalpy  ZCH  of  the 
gas  is  calculated  from  equation  1(238)  and  the  molecular  weight 
ZCM  from  equation  1(236).  Finally,  the  corrections  for  gas 
imperfections,  equations  1(79)  and  1(81;,  are  applied. 

3 . 19  Subrouti'.ci  EXACT 


Tl-iis  subroutine  computes  the  derivatives  of  the  species 
concentrations  and  the  other  dependent  flow  variables  for 
use  in  the  nonequilibrioim  solution.  EXACT  consists  of  two 
sections.  The  first  sectioi  (down  to  statement  100)  calcu- 
lates the  derivatives  required  in  the  perturbation  solution; 
the  second  gives  those  used  in  the  nonequilibrium  integration. 

3,19.1  Derivatives  for  the  Perturbation  Solution 

The  derivatives  required  in  the  perturbation  solution 
(Section  7.3  of  Vol.  I)  are  those  of  the  equilibrium  flov; 
variables.  These  derivatives  are  computed  in  EXACT  by  solv- 
ing a system  of  n+2  linear  equations  of  the  form 

ni-2 

21  »ij  h ' 

The  unknowns  X.  are 
3 

d V- 

Xj  = for  j = 1 to  n (72a) 
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d -i?n 


= _L  ^ 

dx 


2^+2  dx 


A 


(72b) 

(72c) 


The  system  of  equations  is 


i=l  to  c: 


n 

t 

j = l 


“ji 


d y 
“dbT" 


= 0 


(73a) 


i=c+l  to  n: 

j=l 


X-' 


lZi.J_  ili 


dx 


dx 


To  [ Ki/Ro‘^0 


L 


-St/.  1 -i) 

±1  i-c,jV  ’f/t^  /J 


T/T, 


- 1 


d(T/To) 


dx 


+ i-y*,  ~ 1) 

l-c 


d ^ ^ ^ 
dx 


(73b) 


i=n+l: 

S . Ze  [v 

j = l <3x  T 

_ n d(T/To) 

J dx 

r tt2  u 2 

+ fj=  _ HL.  . . 

-0]  din^ 

Lw  U32  R^To 

^ J dx 

Tf^  To 

ci  -fn  ^ 

(73c) 

^ ’ Vo  ' T 

dx 

i=n+2: 

V Jii  .1 

Vo  ‘ 

■3?1  ■^J 

d(T/To) 

dx 

Ug^  d /n  ' 

= zL  . ZaL 

dfnA 

Vo 

“s^  P/o 

dx  (73d) 

I ■ t 

1 


Equation  (73a)  is  1(363)  with  the  meanings  of  the  indices 
interchanged;  equation  (73b)  is  1(367)  with  the  signs  of  all 
terns  reversed  and  the  index  replacements  j-^i,  J—*j;  equa- 
tion (73c)  is  1(299)  applied  to  the  equilibrium  flow;  and 
(73d)  is  1(293)  applied  to  the  equilibrium  flow.  Note  that 


H. 


-i—  = SHJ(i) 

^o’^o 


X-  = CT 


(iU)  = SU2 


_ ^0*^0 


Vo 


£ 

Wr 


(74a) 

(74b) 

(74c) 

(74d) 


Equation  1(296)  is  used  in  the  coding  of  the  quantity  1/N 
in  (73c) . 


The  coefficients  for  these  equations  (73)  are  loaded 
into  the  array  AAA(I,J)  for  I = 1 to  n + 2 and  J = 1 to  n + 2. 
The  constants  are  loaded  into  AAA(I,  n + 3)  for  I = 1 to 
n + 2.  The  system  of  equations  is  then  solved  by  calling  sxib- 
routine  Dt.  and  the  resulting  values  for  the  derivatives 

(72)  are  retrieved  from  the  (n  + 3)th  column  of  AAA. 

3.19.2  Derivatives  for  the  Numerical  Integration 


During  the  numerical  integration  of  the  rate  equations, 
the  derivatives  of  the  species  concentrations  are  given  expli- 
citly by  equation  1(287).  These  derivatives  are  computed  in 
the  nest  of  D0  loops  ending  at  statement  120;  they  are  denoted 
by  DGJ(J) . 
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The  nature  of  the  remaining  derivatives  to  be  deter- 
mined depends  upon  the  region  of  solution  (up streeuu  or  down- 
stream) and  the  type  of  gas  model  being  used.  The  unknowns 
solved  for  in  the  various  cases  are  summarized  in  T^^ble  I. 

When  an  electronic  noncqi'i librium  model  is  being  used  (NT=2)  , 
there  is  a fourth  dcpeii.  ent  variabL:  in  the  integration,  the 
total  enthalpy  h^.  Howe^’^er,  its  derivative  is  given  expli- 
citly by  equation  1(333),  so  that  it  is  not  involved  in  the 
simultaneous  solution  for  the  derivatives  listed  in  Table  I. 

For  a given  type  of  gas  model,  the  same  set  of  aquations 
is  solved  regardless  of  whether  the  solution  is  in  the  up- 
streaun  region  (inverse  method)  or  the  dovmstraam  region 
(direct  integration) . However,  the  matrix  of  coefficients 
and  the  vector  of  constants  differ  in  the  two  cas  ^s  because 
of  the  difference  between  the  sets  of  unlcnowns  being  solved 
for.  Figure  8 is  a flowchart  of  the  solution  for  the  deriva- 
tives. By  following  this  flowchart,  one  can  easily  \jrite  out 
the  equations  being  solved  in  each  of  the  four  cases  listed 
in  Table  I,  and  verify  that  they  are  identical  with  the  text 
equations  listed  in  the  table.  It  should  be  noted  that  NE  = 
NT  + 1 is  the  mmiber  of  unknowns  and  equations  in  each  case. 
For  NT  = ?,  the  variable  SCPGK  contains  the  sum  ;£  Cpj  Vj/ 
but  for  NT  = 1 the  sum  is  over  all  species  (see  3=2 
subroutine  C0MM) . 

3.20  Function  EXP 

The  operating  system  on  the  IBM  360/75  at  Avco  produces 
several  lines  of  diagnostic  output  whenever  the  Fortran  func- 
tion DEXP(X)  underflows  to  give  a value  0.  To  avoid  such 
interruptions  of  the  normal  output,  the  IBM  360  version  of 
NATA  contains  a Fortran-coded  exponential  function,  £XP(X), 
which  checks  the  argument  X and  sets  the  result  to  zero  for 
X < -180.  For  X > -180,  EXP  calls  DEXP  to  compute  EXP. 

This  routine  is  no-^"  used  in  the  UNIVAC  version  of  NATA  be- 
cause the  UNIVAC  system  EXEC  II  does  not  produce  a diagnos- 
tic message  for  exponential  underflow. 
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Figure  8.  Flowchart  of  the  Solution  for  the  Derivatives  of  the  Flow  Variables  in  the  Nuraerieal  Integration 
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3.21  Subroutine  FINDX 

The  purpose  of  this  subroutine  is  to  detemine  the 
value  of  X at  which  the  geometric  area  ratio  has  a given 
value  A.  An  indicator  (UPD0WN)  specifies  whether  the 
upstream  or  the  downstream  solution  is  desired.  An  entry 
point  FINDXC (A,MBL,X)  permits  determining  the  value  of  x 
at  which  a rectangular  channel  has  a half-width  A,  in  cen- 
timeters, on  its  MBLth  profile. 

The  solution  is  obtained  by  a Newton-Raphson  iterative 
procedure.  The  independent  variable  in  the  iteration  is 
taken  to  be  V = Ixl  . 

If  the  area  ratio  is  given  (normal  entry  point) , then 
its  value  is  tested  before  the  solution  is  attempted.  If 
A is  less  than  0.99999,  the  case  is  terminated  by  calling 
DUMP,  because  by  its  definition  the  area  ratio  cannot  be 
less  than  unity.  If  A is  between  0.99999  and  1.0,  the  dis- 
crepancy is  assumed  to  be  due  to  a numerical  (e.g.,  round- 
off) error  elsev^7here  in  the  program;  in  this  case,  X is 
set  to  0.0  (the  value  for  A = 1.),  and  the  RETURN  is  exe- 
cuted. 

If  A is  greater  than  1.0,  V is  initialized  to  1.0  and 
the  Newton-Raphson  procedure  is  started.  The  geometric 
area  ratio  AR  and  its  derivative  DADX  at  the  point  X = V*sign 
(UPD0WN)  are  calculated  by  calling  GE0MAR.  If  AR  agrees  with 
A to  within  one  part  in  10^,  the  iteration  has  converged.  If 
not,  a new  estimate  of  V is  calculated  from  the  Newton-Raphson 
formula 


V = Vq  + 


A-AR 
I DADX i 


(75) 


However,  V is  not  allowed  to  increase  by  more  than  a factor 
of  2 in  any  step;  this  is  to  prevent  V from  becoming  very 
large  after  a step  in  which  V was  very  close  to  the  throat 
(where  DADX  =0.).  A maximum  of  50  iterative  steps  is  al- 
lowed . 
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If  the  channel  width  is  given  (entry  FINDXC) , then 
V is  initialized  to  100  cm,  a value  typical  of  axial  posi- 
tions where  test  panels  might  be  installed  in  a channel. 

For  each  trial  value  of  V,  the  profile  half  width  AR  = Z(MBL) 
and  slope  DADX  = DZDX(MBL)  are  computed  by  calling  the  entry 
point  GMAR3  of  GE0MAR,  The  same  Newton-Raphson  formulas 
and  convergence  test  are  used  as  in  the  area  ratio  case. 

3.22  Subroutine  FR0ZEQ 

FR0ZEQ  is  the  routine  which  controls  the  computation  of 
the  frozen  and  equilibrium  flow  solutions.  The  frozen  flow 
solution  is  generated  when  the  routine  is  called  through 
entry  FR0ZEN.  Entry  EQUIL(IPASS)  gives  the  equilibrium 
solution. 


3.22.  Nondimensionalization  of  the  Flow  Variables 

Throughout  subroutine  FR0ZEQ,  the  calculations  are 
carried  out  with  most  of  the  flow  variables  in  nondimensional 
form.  The  relation  between  the  Fortran  symbols  and  the  dimen- 
sional flow  variables  is  summarized  in  the  following  formu- 
las: 


AFNX  Ag,  effective  area  ratio 


CH 

CHA 


■*0^0 

Wpho 

Vo 


nondimensional  specific  enthalpy 


nondimensional  enthalpy  in  the 
reseirvoir 


CT 


T/Tq,  .iondimensional  temperature 


cx 


X,  axial  nozzle  coordinate  (cm) 


FLUX 


■ P’  ^ , nondimensional  mass  flux 

Vs 
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, nondimen sional  pressure 

Po 

RH0 

, nondimens ional  density 

SU 

~ , nondimen sional  velocity 
Us 

In  these  definitions,  the  siabscript  0 denotes  conditions  in 
the  reservoir,  is  the  universal  gas  constant,  and  Ug  is 
a velocity  defined  by 

“s  =/"oV"o 

where  Wq  is  the  molecular  weight  in  the  reservoir  and  Rq  is 
the  universal  gas  constant  in  mechanical  cgs  units  (erg/mole 
°K). 

3.22.2  Determination  of  Frozen  Sonic  Conditions 

When  entry  FRj^JZEN  is  called,  subroutine  FR0ZEQ  deter- 
mines the  sonic  conditions  in  the  frozen  flow  before  start- 
ing the  main  frozen  flow  solution.*  T1  is  calculation  is 
done  by  the  statements  from  entry  FRj^ZEN  down  to  entry  EQUIL. 
A flowchart  of  this  part  of  the  subroutine  is  shown  in  figure 
9.  The  criterion  for  locating  the  sonic  point  is  that  the 
mass  flux  m be  a maximum.  This  condition  follows  from  the 
continuity  equation  1(243)  and  the  fact  that  the  flow  area 
A is  a minimum  at  the  sonic  throat.  The  temperature  at  the 
sonic  point  is  determined  as  follov/s:  the  temperature  is 

initialized  to  its  reservoir  value,  and  is  then  decremented 
repeatedly  by  'he  amount  DELT1*T_^,  v/here  DELTl  is  normally 
0.01.  At  each  of  these  +"  , .ratures,  the  correcj-onding 
mass  flux  in  frozen  flow  _ calculated  by  calling  subroutines 
THERM  and  PR0P,  This  procedure  is  continued  until  the  mass 
flux  passes  its  maximum.  Then  the  temperature  step  is  re- 
duced and  an  iteration  is  carried  out  to  locate  the  sonic- 
point  temperature  with  high  accuracy. 


*The  calculation  of  sonic  conditions  for  the  cqui librium  sol- 
ution is  done  in  a separate  subroutine,  NRMAX. 
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Exit  from  iteration 


Figure  0.  ow  Chart  for  Determination  of  Sonic  Conditions 
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The  algorithm  for  determining  the  sonic-point  tempera- 
ture (figure  9)  is  based  upon  consideration  of  a sequence 
of  three  equally- spaced  temperatures  T1  > T2  > T3  and  the 
corresponding  mass  flux  values  FI,  F2,  F3.  T1  and  T2  are 
always  chosen  in  such  a \?ay  that  F2  > FI;  thus,  Tl  is  def- 
initely known  to  be  higher  than  the  sonic  temperature, 
each  stage  of  the  iteration,  the  rules  for  selecting  the 
next  triplet  of  temperatures  Tl* , T2‘ , T3'  depend  upon  +'■ 
value  of  F3-F2.  There  are  ':hree  cases,  which  are  illus- 
trated schematically  in  figure  10.  In  case  A (F3  > F2) , 
the  three  mass  flux  values  foim  a monotonic  sequence  F3  > 

F2  > FI.  In  this  case,  the  available  data  provide  no  in- 
dication that  the  point  of  maximum  mass  flux  has  been 
reached,  although  this  may  actually  be  the  case , as  shown  by 
the  dashed  curve  in  the  top  section  of  the  figure.  In 
case  A,  Tl'  is  set  equal  to  T2,  T2‘  to  T3,  and  T3'  is  ob- 
tained by  applying  the  same  decrement  Tl'  - T2'  to  T2'.  In 
case  B (F3  = F2),  the  sonic  point  is  known  to  lie  between 
T2  and  T3.  In  this  case,  Tl'  is  set  equal  to  T2,  tL;  tem- 
perature decrement  DELT  = AT  is  cut  in  half,  and  the  remain- 
ing two  temperatures  are  set  to  T2'  = Tl'  - AT  and  T3'  = 

T2'  - AT  = T3.  In  case  C (F3  < F2)  , the  sonic  point  could 
lie  between  Tl  and  T2  or  between  T2  and  T3.  To  ensure  that 
Tl'  lies  above  the  sonic  temperature,  it  is  set  equal  to  Tl. 
The  decrement  aT  is  halved  as  in  case  B,  and  T2*  = Tl*  - 
AT,  T3'  = T2'  - AT  = T2.  If  the  sonic  point  actually 
lies  between  T2  and  T3,  as  illustrated  by  the  solid  curve 
in  the  bottom  part  of  figure  10,  the  situation  in  the  next 
step  of  the  iteration  will  be  as  in  case  A. 

At  each  step,  the  magnitude  of  DELT  is  compared  with 
the  criterion  value  TESTB  = 10”^.  If  DELT  < TESTB,  the 
iteration  has  converged.  A final  improvement  in  the  value 
of  the  scnic  temperature  is  then  obtained  by  fitting  a para- 
bola to  the  mass  flux  versus  temperature  data  for  the  final 
triplet  of  points,  and  determining  the  maximum  analytically 
based  on  this  quadratic  relation.  The  form  assumed  is 

2 

F(T)  = A + B(T-T2)  + C(T-T2)  (77) 
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Substitution  of  the  data  points  (T  ,Fj^) , (T2,P2) » and  (T3,F3) 
and  solution  for  the  coefficients  a,  B,  C gi/e 


^3  ^ Fi+  F,“  2FO  2 

^ ^2>  - - ■'2>  178) 

Setting  dF/dT  = 0 then  leads  to,  the  final  result 
(F3-Fi)(aT) 

= T2  + (79) 

2(Fj^+  F3-  2F2) 

If  the  quantity  Z/F2  = (Fj^'  + F^  - 2F2)/F2  is  less  than  or 
equal  to  IG"^,  equation  f77)  is  not  used.  In  this  case,  T* 
is  simply  set  equal  to  T2,  to  avoid  possible  errors  due  to 
loss  of  accuracy  on  the  subtraction  in  Z (or  a divide  check 
in  (79)  if  Z = 0). 

3.22.3  Main  Flow  Solution 

The  basic  operation  performed  by  subroutine  FR0ZEQ  is 
the  calculation  of  the  frozen  and  equilibrium  flow  solutions. 
In  its  essentials,  this  calculation  is  quite  simple.  The 
nondimensional  temperature  CT  is  decremented  repeatedly, 
starting  from  its  reservoir  value  (CT  =1.).  At  each  value 
of  the  temperature,  the  other  flow  variables  are  computed, 
using  subroutines  THERM  and  PR0P  in  the  case  of  frozen  flow 
and  subroutine  NEWRT^  in  the  case  of  equilibrium  flow.  Then 
the  positio.i  x in  the  nozzle  at  which  the  flow  point  occurs 
is  determined  from  the  known  nozzle  geometry  and  the  value 
of  the  area  ratio  at  the  flow  point,  and  the  results  are 
printed  by  calling  entry  0UT2  of  subroutine  0UT1. 

The  actual  complexity  of  FR0ZEQ,  as  illustrated  by  its 
flowchart  (figure  11)  is  due  to  provisions  for  treating 
various  options  and  regions  of  the  solution.  The  control 
variables  pertaining  to  some  of  these  cases  and  conditions 
will  be  defined  before  the  subroutine  is  discussed  in  de- 
tail: 
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Figure  lla.  Flowcheurt  of  ‘Subroutine  FR^EQ  (Part  a) 


eonCitions  at  CT 


Figure  lid.  Flowchart  of  Svlbroutlne  T9fiZBQ  (Part  d) 


( ISW3B  = 0 Boundary  layer  is  omitted. 

ISW3B  ^ 0 Boundary  layer  is  included, 

IPASS  = 1 Preliminary  equilibrium  solution 

from  the  reservoir  to  the  sonic 
point,  to  determine  the  boundary 
layer  displacement  thickness  at  the 
throat  for  use  in  reservoir  condition 
calculations. 

IPASS  = 2 Final  flow  solution. 

IS^IC  = “1  Region  upstream  of  the  throat. 

IS0NIC  = 0 Sohic  point. 

ISjS^IC  = 1 Region dswnstream  of  the  threat. 

M0DLPT  = .FALSE.  Regular  point  of  the  flow  solution. 

J^DLPT  = .TRUE,  Iteration  to  find  the  conditions  at 

a specified  model  point  is  in  pro- 
gress. 

SKIP  = .FALSE,  Regular  flow  point  or  model  point. 

;|  SKIP  = .TRUE,  Regular  flow  point  just  after  a model 

point. 

LASTPT  = .FALSE,  Regular  flow  point  or  model  point. 

LASTPT  = .TRUE.  Last  point  of  solution. 

The  simplest  case  is  that  of  a solution  without  the  boun- 
dary layer  and  without  any  model  points.  In  this  case,  FR0ZEQ 
generates  a point  of  the  solution  by  traversing  the  loop  out- 
lined by  the  statement  numbers  180,  190,  220,  310,  410,  420, 
440,  450,  550,  580,  600.  The  temperature  decrement  DELTV  is 
equal  to  the  input  value  of  DELTl  (normally  0.01)  in  this 
case,  until  the  difference  X0  - XP  in  spatial  position  be- 
tween two  successive  flow  points  exceeds  10  cm.  Once  this 
has  happened,  the  unnumbered  statements  between  180  and  190 
reduce  DELTV  so  as  to  maintain  a spatial  step  size  of  ap- 
proximately 10  cm.  This  variation  of  DELTV  occurs  far  dovm- 
streara  of  the  throat,  in  the  region  where  the  free  stream 
temperature  has  fallen  to  a small  fraction  of  the  reservoir 
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temperature.  DEUTV  is  not  allowed  to  fall  below  0.02  DELTl. 
These  adjustments  of  DELTV  in  the  region  far  downstream  are 
also  made  when  the  boundary  layer  is  included  in  the  solu- 
tion. 

The  second  statement  below  190  tests  whether  the  tem- 
perature CT  is  below  the  sonic  temperature  CTMAX,  i.e,, 
whether  the  solution  has  passed  the  throat.  If  it  has,  in 
the  case  v/ithout  the  boundary  layer,  IS0NIC  is  reset  from 
-1  to  +1,  and  the  indicator  FLAG  for  upstream  and  down- 
stream solutions  in  tlie  geometry  routines  is  reset  from  -1. 
to  +1.  Once  the  flow  conditions  for  the  temperature  CT  have 
been  computed,  the  spatial  position  in  the  nozzle  is  deter- 
mined by  calling  subroutine  FINDX(AFNX,  FLAG,CX)  (statement 
310).  This  siibroutine  determines  the  upstream  (FLAG  = -1.) 
or  downstream  (FLAG  = 1. ) position  CX  at  which  the  geometric 
area  ratio  is  equal  to  AFNX. 

If  the  boundary  layer  is  included,  the  input  value  of 
DELTl  is  saved  in  the  location  DELTSV,  and  DELTl  is  reset 
to  0.049(1.  - CTMAX)  during  initialization.  This  ensures 
that  there  will  be  20  flow  points  upstream  of  the  throat. 

In  some  cases  with  CTMAX  --'0.9,  the  normal  input  value  of 
DELTl  = 0.01  would  give  only  about  10  points  above  the 
throat,  which  would  adversely  affect  the  accuracy  of  the 
numerical  integration  in  the  boundary  layer  routine  BLAYER. 
Once  the  throat  has  been  reached,  DELTl  is  restored  to  its 
original  value  by  the  statements  below  320. 

When  the  boundary  layer  is  included,  the  effective  area 
ratio  Ag  = AFNX  is  no  longer  equal  to  the  geometric  area 
ratio  Ag  = AR,  because  of  the  boundary  layer  displacement 
thickness,  S*.  The  relation  between  these  two  area  ratios 
(Section  4.4  of  Volume  I)  involves  the  displacement  thick- 
ness at  the  throat,  Since  this  is  not  known  initially, 

the  spatial  position  CX  corresponding  to  each  flow  point 
is  calculated  on  the  assumption  that  Ag  a^  until  the  throat 
has  been  reached.  These  calculations  are  done  using  subrou- 
tine PINDX,  as  in  the  case  without  the  boundary  layer.  A 
special  flow  point  is  computed  at  the  throat  (IS0NIC  = 0, 

CT  = CTSTAR,  CX  = 0, ) in  order  to  determine  the  quantity 
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1 - Sif  - 0MDST  (statement  390)  for  the  nozzle  (or  two  such 
values  in  the  case  of  a channel) . Then,  beginning  at  the 
third  point  beyond  the  throat,  CX  is  computed  taking  the 
displacement  thickness  into  account,  using  subroutine  AGS0IJS. 
In  statement  340,  AGS0LN  is  called  with  the  effective  area 
ratio  AFNX  for  the  current  step  and  the  displacement  thick- 
ness DELBL  for  the  preceding  step.  The  resulting  CX  value 
is  used  in  the  boundary  layer  calculations  (statement  below 
370) . Subroutine  AGS0LN  is  then  called  again,  with  the  same 
AFNX  and  the  new  DELBL  produced  by  the  call  to  BLAYER.  This 
second  call  to  AC30LN  gives  an  improved  value  of  CX. 

In  some  problems,  at  large  distances  downstream  of  the 
throat,  the  displacement  thickness  becomes  large  enough  to 
have  a major  effect  on  the  effective  area  ratio.  Under  such 
circumstances,  the  coupling  between  the  boiandary  layer  and 
the  inviscid  flow  solution  can  lead  to  computaticnal  instab- 
ility. The  boundary  layer  routine  BLAYER  contains  a smooth- 
ing algorithm  intended  to  suppress  such  instability  (Section 
5. 11  of  Volume  I).  This  algorithm  involves  a parameter  W, 
preset  to  a value  WSAVE  which  usually  prevents  instability. 
However,  occasionally  instability  develops  in  spite  of  the 
smoothing.  In  the  frozen  and  equilibrium  solutions,  the 
symptom  of  such  instability  is  that  CX  begins  to  decrease 
with  decreasing  temperature.  When  this  occurs,  subroutine 
FR0ZEQ  attempts  to  produce  a valid  solution  by  cutting  the 
stabilizing  parameter  W in  half  and  restarting  the  solution 
in  the  reservoir.  This  operation  is  accomplished  by  coding 
between  statements  340  and  350.  If  instability  has  been 
encountered  after  three  successive  restarts,  the  solution  is 
abandoned  and  error  dumps  are  written.  Also,  restarting  is 
not  attempted  if  the  geometric  area  ratio  is  more  than  4 
times  greater  than  the  effective  area  ratio  at  the  point 
where  CX  decreases,  as  in  this  case  the  code  is  probably 
predicting  actual  choking  of  the  flow  by  boundary  layer 
growth. 

3.22.4  Model  Points 

Model  points  are  input- specified  spatial  locations,  in 
the  downstream  region  of  the  nozzle,  at  which  special  cal- 
culations are  to  be  performed.  Since  model  points  are 


specified  by  values  of  CX,  while  points  of  the  equilibrium 
or  frozen  flow  solution  are  specified  by  values  of  the  tem- 
perature, an  iteration  is  required  to  find  the  temperature 
CT  corresponding  to  each  model  point. 

During  the  initialization,  and  after  the  completion  of 
each  model  point  calculation,  subroutine  NEXTMP  is  called 
to  determine  the  location  XM0DEL  of  the  next  model  point. 
During  the  main  flow  solution,  after  CX  has  been  determined 
for  each  flow  point,  statement  450  tests  whether  CX  is 
greater  than  or  equal  to  XM0DEL.  If  not,  the  flow  solution 
proceeds  normally.  If  CX  > XM0DEL,  the  iteration  to  deter- 
mine the  CT  value  corresponding  to  CX  = XM0DEL  is  started. 
While  this  iteration  is  in  progress,  the  indicator  W0DLPT 
is  .TRUE.. 


To  avoid  complicating  the  programming  of  svibroutine 
BLAYER,  and  to  save  computer  time,  BLAYER  is  not  called 
during  the  model  point  iteration.  Instead,  the  boundary 
layer  properties  at  the  model  point  are  approximated  by 
linear  interpolation  of  the  data  at  the  preceding  and  cur- 
rent main  flow  points,  and  at  each  cycle  of  the  iteration 
subroutine  TRANSP  is  called  (statement  360)  to  determine  the 
transport ‘properties  at  the  current  temperature. 


The  iterative  algorithm  for  improving  the  estimate  of 
CT  corresponding  to  XM0DEL  is  a numerical  Newton-Raphson 
technique  embodied  in  statement  490: 


T = Tj^  + (T2  - Tj^) 


Xm  " ^1 

X2  - 


(80) 


where  T2  is  the  temperature  for  which  calculations  were  done 
in  the  current  step,  is  the  ten^erature  in  the  preceding 
iterative  step,  X2  and  Xj^  are  the  CX  values  corresponding  to 
T2  and  T-^,  and  Xj^  is  XM0DEL. 


The  convergence  criterion  for  the  iteration  is  that  CX 
differ  from  XM0DEL  by  no  more  than  0.0025  cm  or  0.001  inch. 
A mciximxam  of  10  iterations  is  allowed.  If  convergence  has 
not  been  achieved  after  10  iterations,  a diagnostic  message 
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‘ io  written  and  the  data  from  the  final  iteration  are  used. 

When  the  iteration  has  thus  been  terminated  by  either  con- 
vergence of  nonconvergence,  the  results  for  the  flow  condi- 
tions at  the  model  point  are  printed  by  calling  0UT2,  M0DLPT 
is  reset  to  ,FAI£E.,  and  subroutine  M0DEL  is  called  to  per- 
fom  the  required  calculations  of  conditions  on  models. 

Also,  the  indicator  SKIP  is  set  tc  .TRUE.,  and  the  next 
- XI^DEL  is  determined  by  calling  NEXTMP.  Before  resvoning 
the  main  flow  solution,  FR0ZEQ  checks  whether  the  next 
Xt^DEL  is  less  than  or  equal  to  the  CX  for  the  current  main 
solution  point.  If  so,  the  model  point  iteration  is  started 
again  to  find  the  flow  conditions  at  the  new  XM0DEL. 

c 

Once  all  of  the  XM0DEL  values  less  than  or  equal  to 
the  CX  for  the  current  main  flow  point  have  been  dealt  with, 
the  flow  conditions  for  the  current  flow  point  are  recom- 
puted and  printed.  The  .TRUE,  value  of  the  indicator  SKIP 
provides  for  this  recomputation  by  causing  a transfer  to 
statement  220  instead  of  550  just  below  statement  450.  Also 
for  SKIP  = .TRUE.,  the  determination  of  CX  and  the  call  to 
BLAYER  are  bypassed  below  220.  SKIP  is  then  reset  to  .FALSE,, 
the  results  are  printed  by  calling  0UT2,  and  the  main  flow 
solution  is  resiimed. 

When  a CX  greater  than  or  equal  to  CXMAX  is  reached, 

XM0DEL  is  set  equal  to  CXMAX  and  the  indicator  LASTPT  is  set 
to  .TRUE.,  The  model  point  iteration  then  provides  the  flow 
conditions  at  the  position  CXMAX.  After  the  iteration  has 
converged  and  the  results  have  been  printed,  for  LASTPT  =.TRUE., 
control  is  transferred  to  statement  610.  For  nozzle  flow 
problems  (NPRPLS  = 1) , the  RETURN  is  then  executed.  For  chan- 
nel problems  (NPRFLS  = 2) , subroutine  M0DEL  is  first  called 
with  AXISYM  = .TRUE,  to  provide  calculation  of  the  stagnation 
conditions  in  the  channel  exit  plane.  Stagnation  condition 
calculations  are  suppressed  for  channels,  with  this  one  excep- 
tion, because  stagnation  point  models  and  Pitot  probes  are  not 
used  inside  channels. 

3.23  Subroutine  GE0M 

The  fvinction  of  GE0M  is  to  calculate  the  density,  the 
effective  area  ratio  and  the  derivative  of  one  or  the  other 
of  these  quantities  at  each  position  x along  the  nozzle  during 

(; 
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the  nonequilibrium  flow  solution.  Two  different  methods  of 
calculation  are  used  in  different  parts  of  the  flow  solution. 
During  the  solution  by  the  perturbation  method,  and  during 
the  direct  integration  of  the  rate  equations  in  the  region 
beyond  the  call  to  THR0AT,  the  calculation  of  the  effective  area 
ratio  is  based  directly  on  the  nozzle  geometry  and  the  boundary 
layer  disp^-acement  thickness,  if  any,  and  the  density  is  then 
calculated  from  the  continuity  equation.  During  the  numerical 
integration  by  the  inverse  method  upstream  of  the  call  to  THR0AT, 
the  density  is  obtained  from  the  analytical  density-area  relation 
1(383) ; 


(-n^  A ) 1 - {-^)  1 - C 

Po  Po 


(81) 


and  the  effective  area  ratio  is  then  obtained  from  the  con- 
tinuity equation  1(266).  The  constants  «.  and  C in  (81) 
are  determined  in  the  main  program  from  sonic-point  condi- 
tions, prior  to  the  first  call  to  GE0M,  as  explained  in  Sec- 
tion 7.4  of  Volume  I and  in  Section  3.1  of  the  present  re- 
port. 


The  overall  logical  structure  of  GE0M  is  diagrammed  in 
figure  12.  Iiniciediately  upon  entry,  the  subroutine  calls 
GE0MAR  to  compute  the  geometric  area  ratio  Si  and  its  deri- 
vative S2  at  the  current  position  CX,  If  the  non equilibrium 
flow  solution  being  computed  includes  the  boundary  layer 
(ISW3B  ji  0) , then  AES0LN  is  called  to  convert  Si  into  the 
effective  area  ratio  and  S2  into  the  derivative  of  the  ef- 
fective area  ratio,  based  on  the  current  displacement  thick- 
ness. 


If  the  flow  solution  is  beyond  the  call  to  THR0AT 
(lUPD  = 0)  or  if  the  perturbation  technique  is  in  use 
(INEQ  = 0) , the  effective  area  ratio  AFNX  is  set  equal  to 
SI  and  the  nondimensional  density  RH0  is  calculated  from 
AFNX  using  the  continuity  equation.  Also,  the  derivative 
D^25ga  = din  A^dx  is  computed  from  SI  and  S2. 

On  the  other  hand,  if  the  numerical  integration  tech- 
nique ai)d  the  inverse  method  are  being  used  to  generate  the 
flow  solution  (INEQ  = 1 and  lUPD  = 1) , then  the  nondimensional 
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AFNX=SM/ (SU*RH0) 


Coippute  DL0GR 


RETURN 


Figure  12.  Flowchart  of  Subroutine  GE0M 
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density  RH0  is  calculated  from  Si  by  solving  the  density- 
area  ratio  relation  (81),  and  the  effective  area  ratio 
AFNX  is  recomputed  from  RH0  using  the  continuity  equation. 
The  derivative  DL0GR  = d in  ( /o//a  )/dx  is  then  computed  for 
use  in  the  rate  equations  (see  the  discussion  of  subroutine 
EXACT  above) . 


The  calculation  of  RH0  from  equation  (81)  is  based  on 
the  follCiVing  analysis.  Equation  (81)  can  be  solved  for 


^e  = 


'0 


1-  (^//>.) 


<x 


(82) 


The  form  of  this  relation  is  illustrated  in  figure  13,  for 
the  case  cx  = 0.2,  C = 0.035049.  The  corresponding  density 
ratio  at  the  sonic  point  is  /^*/  Pq  = 0.62092.  The  basic 
computational  problem  in  GE0M  is  to  solve  (81)  or  (82)  for 
P / p , based  on  a given  value  of  A^,  Except  near  the  throat, 
tlie  solution  is  carried  out  using  the  Newton-Raphson  method; 
i.e,,  from  a given  estimate  p^  of.  /? , an  improved  estimate  P 
is  obtained  as  foliov;s:  ^ ^ 


1 - < />p//>o) 


o< 


(83a) 


/^0< 


d A 


O'  d 


■)  = 


/OpAp  ^ (1  + ^<v)(/0p//>0)  -1 


(83b) 


^e  - 


Cxi  /^P  (dA/d^  )^ 


(83c) 


Here  Ap  is  the  A^  value  calculated  from  (82)  for  o = /o 


(dA/dyo  ) is  the  derivative  of  (82)  evaluated  at  p ~P 
and  equation  (83c)  is  the  Newton-Raphson  formula. 
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Figure  13.  Approximations  to  the  Density-Area  Ratio  Relation 
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Examination  of  equations  (83)  reveals  several  potential 
problems.  At  the  sonic  point  (A^  = 1),  the  derivative  dAc/'d ^ 
is  zero,  so  that  the  second  term  in  (83c)  is  undefined.  Near 
the  throat,  (dA/d^  ) is  very  small.  If  a trial  value  is 
near  the  throat,  and'^nearcr  the  throat  than  the  solution  of 
(82),  the  Newton-Raphson  formula  (83c)  can  give  an  "improved" 
^ which  is  much  less  accurate  than  p and  which  may  even 
be  outside  the  permissible  range  0 < p ^ 1.  To  deal  v/ith 
these  problems  reliably,  GE0h  uses  the  following  algorithm: 


(1)  If  Ag  < 1,  p = p^  (throat  point) 

(2)  If  1 < Ag  < 1.001  (throat  region),  p is  calcu- 

lated from  a Taylor  series  expansion  of  (82) 
around  the  throat  point: 


Ae 


1 + 
1 + 


■) 


^ (_P_ ^ 2 ^ (o^  +1)  o<2/2  ^ ^ ^ 3 

2C  /=*o  /®0  6C/C(c<  +2)"  /^Q  />o 

(84) 


The  coefficients  in  this  equation  have  been  evalu- 
ated by  differentiation  of  (82)  and  use  of  the 
sonic-point  conditions  p = p^  , = 1,  (d  Ae/d/3)*=0. 

In  the  throat  region,  where  (84)  is  used,  the  cabic 
term  is  small.  If  this  term  were  neglected,  the  sol- 
ution of  (84)  would  be 


*4 ^ ® (Ag  - 1)  = S*  (Sp  ) (85) 

f 0 f 0 

where  S is  +1  upstream  and  -1  downstream  of  the 
throat.  When  the  cubic  terra  is  taken  into  account, 
the  solution  of  (84)  can  be  approximated  by 
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« _ 

= S ^(A^-1)  - 

Pq  L cx  e 


S ( <x'  +1) 
3 


cx 


C(cx  +2) 


where  { ) is  defined  by  the  second  equality  in  (85) . 

Equation  (86)  is  used  to  calculate  when  A^<  1.001. 


(3)  If  Ag  > 1.001  (general  case),  the  Newton-Raphson  procedure 
(83)  is  used.  To  ensure  its  stability, pains  are  taken  to 
select  a first  estimate  of  p w'.iich  is  fa  iher  from  /^* 
than  the  solution  point.  Since  the  relation  (82)  is 
everywhere  concave  upward  (figure  13) , the  Newton-Raphson 
formula  undercorrects  p whenever  the  es-i-imate  lies 

too  far  from  p*.  Thus,  if  the  first  estimate  ^ p is  too 
far  from  p * the  iteration  converges  to  the  solution  with- 
out ever  overshooting  it.  Under  these  circumstances,  no 
'instability  can  develop.  To  obtain  such  an  initial  esti- 
mate, the  subroutine  uses  three  approximations  to  (82),  all 
of  which  lie  below  (82) . One  of  these  approximations  is 
(85).  The  second  is  an  approximation  for  p/ 1, 
namely 


cX 


from  which 


(87) 


The  third  is  an  approximation  for  ~ 0, 


Ag  ^ TE/Kp / p 

from  which 


(88) 


In  the  upstream  region  (dA^/dx  < 0),  the  initial  estimate 
is  chosen  to  be 


^0 


min 


L P, 


(1 


(89) 
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In  the  downstream  region  (dA^/dx  > 0)  , 


it  is 


Once  the  solution  for  has  been  obtained,  the  derive 
tive  d/n  is  calculated.  Normally  this  is  determined 

from  the  formula 


diniO  ^ 
dx 


2C 


<^(-4^)^  - (o<+  2)C 


d £n  Aq 
dx 


(91) 


which  can  be  obtained  by  differentiating  (82) . The  factor 
d-^n  Ag/dx  on  the  right  is  evaluated  as  S2/S1,  based  on  the 
specified  nozzle  geometry  and  displacement  thickness.  The 
throat  point  (A^  =1)  is  a special  case,  because  there  the 
denominator  of  (91)  is  zero  and  dAg/dx  = 0,  so  that  (91)  is 
of  the  form  0/0.  At  the  throat,  dJn/^/dx  must  be  evaluated 
from  (91)  using  L'Hospital‘s  rule: 


d Xn  /5 


A^=l 


= 2C  lim 


Ag/dx'^ 


Ag->1  2^ 


dA, 


^ dx 


+ Ag 

® dx  ' 


Since  (dAg/dx)*  = 0,  this  gives 

d /c(d^Xn  Ag/dx^)* 

' dx  cy/)^//9 


(92) 


The  area  derivative  on  the  right  hand  side  has  to  be  eval- 
uated from  the  specified  nozzle  geometry.  In  general. 


(93) 
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by  virtue  of  the  conditions  = 1,  (dA^/dx)*  = 0.  To 
proceed  further,  it  is  necessary  to  consider  the  three  geo- 
metry options  separately: 


(1)  Two-dimensional  nozzle 

In  this  case,  frcxn  equation  1(126)  with  y*  replaced 
Yq  usual. 


1 - Oyo 


The  term  (d^  5 /dx>  is  small,  because  the  displace- 
ment thickness  d*  is  small  and  slowly  varying  at 
the  throat.  This  term  is  therefore  neglected.  Since 
the  throat  sections  of  the  prcixle  fit  are  always  of 
the  form  1(122)  (shape  2,  circular  arc  convex  toward 
the  axis) , the  remaining  term  in  the  numerator  of 
(94)  is  given  by 


i-  {^)  = -i  (^)  = 

■"  dx'^  * - 


Y0^3 


The  second  equality  is  obtained  by  noting  that  P =0 
for  a throat  section.  Thus, 


(^)  = 


dx2  . yoP3>'i --SVyo) 


(2)  Axisymmetric  nozzle 

Prcwn  equation  1(131)  since  (dA^/dx)*  = 0 and  A = 1, 


d^Ag 
(~) 
dx^  * 


^ ^ C 


1 d^A, 


/YoLvAg*  d^  * 


2A  3/2  dx  * yQ  dx2  *J 

(96) 
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Now  dAg/dx  is  very  small  at  the  sonic  point  (which 
is  quite  near  the  thrca  t) , so  that  the  square  of 
this  quantity  can  be  neglected.  The  quantity 
(d2  ^ /dx2)*  is  also  neglected  for  reasons  discussed 
above.  Hence, 


d^Ae 

'ST- 


(d^Ag/dx^)* 


(97) 


Evaluation  of  (d^AVdx^)*  using  1(116)  eoid  1(122) 
then  gives 


‘ dx? 


2 

yo^3(l-  <5^/yo)  /v 


(98) 


(3)  Rectangular  channel 
From  equaticR  1(134), 


* 


where 

D = (y  - <5*  )(Zq  - S ) (100) 

At  the  sonic  poj.nt,  the  quantities  (^^  - ^ ^ * ) and 
(^-  are  snail,  so  that  their  product^is  con- 

s^Sere^^negligible.  The  quantities  (d^^^/dx^)^  are 
also  neglected,  as  in  the  other  options.  Also, 
y*  ciy  and  z*  Hence, 
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1 


1 


d^Ae  (yo“  (<3^2/dx2)^+  (z^-  <S2*)  (d^y/dx^) 


dx^  * 


(101) 


Evaluation  of  (d^z/dx^)*  and  (d^y/dx^)^  from  1(122) 
gives,  finally. 


dx2 


■)- 


i*)  P 


2*'  3z 


(Yq-  hi)  P 


(102) 


3y 


where  is  the  P3  parameter  for  the  z profile  and 
that  for  the  y profile. 


*’3y 


3.24  Subroutine  GE0MAR 


GE0MAR  is  the  basic  geometry  routine  in  the  NATA  code. 
Through  its  various  entries,  it  provides  calculations  of 
the  gemetric  area  ratio  and  its  derivative  eind  of  profile 
ordinates  and  their  derivatives  both  for  nozzles  and  for 
rectcuigular  channels. 


The  subroutine  has  4 entries,  with  the  following  calls: 


GEOMAR(X,ARATI0,  DERIVA) 
GMAR(X,Y) 

G1IAR2  (X,y,Z) 

GMAR3 (X, DYDX ,DZDX , Y, Z) 


(lENTRY  = 1) 
(lENTRY  = 2) 
(lENTRY  = 3) 
(lENTRY  = 4) 


The  arguments  have  the  following  meanings: 

X = axial  coordinate  in  nozzle  (cm) 


ARATI0  = geometric  area  ratio 

DERIVA  = derivative  cf  geometric  area  ratio  (cm"^) 
Y = profile  ordinate  (cm) 
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Z = ordinate  for  second  profile  in  a diannel  (cm) 

DYDX  = derivative  of  profile  ordinate 

DZDX  = derivative  of  ordinate  for  second  profile 
in  a channel 


For  oach  profile  (I)  the  subroutine  first  determines 
the  profile  section  (J)  in  which  the  specified  value  of  X 
lies.  This  is  the  first  section  for  which  X < ATPI(J,I). 
The  routine  then  calculates  the  profile  ordinate  frean  equa- 
tion I(12i:  , 1(122),  or  1(123)  depending  on  ISHAI>E(J,I) , 
and  if  reqv ired  also  calculates  the  derivative  of  the  pro- 
file oi’dinate  using  the  derivatives  of  these  formulas: 


(1)  Straight  Line,'  ISHAPE(J,i)  = 1 

= P 

dx  2 

< 

(2)  Circular  Arc  Convex  Dc«vnward,  XSHAPE(J,I) 
X " P2 


£y 

dx 


\/p  2-  (x  - P2)^ 


(103) 
^ 2 

(104) 


(3)  Circular  Arc  Concave  Downward,  ISH2fE(J,I)  = 3 

X - P2 


dx 


/Pa^  - (X  - P2)2 


(105) 


The  subroutine  then  calculates  the  geometric  area  ratio,  if 
required,  frau  eau -tion  I (118)  for  a two-dimensional  nozzle 
(NPRPLS  = 1,  JDl.-*  = 0),  1(116)  for  an  axisymmetric  nozzle 
(NPRFLS  = 1,  oOIM  = 1),  or  1(120)  for  a rectangular  channel 
(NPRFLS  = ?) . It  calculates  the  derivative  of  the  area  ratio 
frexn  the  derivatives  of  these  formulas,  i.e.. 


c'Ag  1 dy 


dx 


y dx 
0 


(2D  nozzle) 


(106) 


(i 
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(axisymmetric  nozzle)  (107) 


dx 


2y  dy 

y^2  dx 


dx 


Y -dz  + z ^ 
dx  dx 


Y 

0 0 


(channel) 


a08) 


Before  executing  the  RETURN,  the  routine  rescales  all 
of  the  confuted  results  using  the  rescaling  factor  RSA.  The 
area  ratio  and  its  derivative  are  multiplied  by  RSA  in  the 
case  of  a 2D  nozzle,  but  in  an  axisymmetric  nozzle  or  chan- 
nel they  are  multiplied  by  yRSA.  The  factor  RSA  is  init- 
ialized to  1.0  and  is  never  changec*  in  equilibrium  and  frozen 
flow  solutions.  In  nonequilibrium  flow  solutions,  RSA  is 
reset  in  subroutine  THREAT  so  as  to  make  the  effective  area 
ratio  continuous  between  the  upstream  solution  by  the  inverse 
method  and  the  downstream  direct  solution. 


3.25  Subroutine  INGAS 

This  subroutine  has  two  entry  points,  INGAS  and  INTA. 
The  first  part  of  the  routine,  which  is  entered  by  calling 
INGAS,  sets  up  several  arrays  which  are  used  in  the  chemi- 
cal description  of  the  gas  mixture,  as  discussed  in  Sectioi 
2,1  of  Volume  I,  The  mathematical  and  Fortran  notations 
for  these  arrays  correspond  as  follows: 


^ki 

AIN(K,I) 

1/  . 
i-c,3 

CDIJ(I,J) 

(I  = i - c) 

* 

-1  + V, 

x-c 

BET(I) 

(I  = i - c) 

QM(I) 

W. 

X 

CGI(I) 

In  the  subroutine,  the  array  AIN  is  first  initialized  to 
the  square  submatrix  of  the  matrix  o^.  . with  i = 1 

to  c,  where  o^. . is  the  number  of  atoms  of^ihe  jth  element 
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per  molecule  of  the  species,  and  c denotes  the  number 
of  elements  in  the  system.  The  inverse  matrix  of  « 
is  then  computed  and  stored  in  AIN  by  calling  subroutine 
MATINV. 

Next,  the  matrix  ^ , which  gives  the  coirposition  of 
the  dependent  species  in  terms  of  the  components,  is  then 
computed  by  evaluating  equation  1(6),  aind  is  stored  in  CDIJ. 
Then  the  singly  siabscripted  array  v*  is 

defined  by  equation  1(15),  is  ccatiputed  in  BET.  The  array 
q^  giving  the  invariant  composition  of  the  gas  in  terms  of 
the  independent  species  is  calculated  using  equations  1(9) 
and  1(10);  it  is  denoted  by  QM(I) . Finally,  the  species 

molecular  weights  = CGI  (I)  are  computed  as  follows: 

« 

5=1 

• < 

where  Aj  is  the  atomic  weight  of  the  element; 

Wi  = Ci  (i  = 1, ...,  c)  (110a) 


c 

Wj[  = "^i-c  k (i  = c + 1,...,  n)  (110b) 

k=l  * 


For  the  rationale  of  equation  (110b),  see  equation  1(5)  and 
its  associated  discussion.  The  molecular  weights  of  the 
dependent  species  i = c + 1, . . . , n could  also  be  calculated 
directly  using  equation  (109),  in  place  of  (IlOb). 

The  purpose  of  the  calculations  following  entry  INTA 
is  to  compute  the  equilibrixam  conditions  in  the  upstream 
reservoir.  The  actual  thermochemical  equilibrium  calcula- 
tion is  performed  by  subroutine  EQCALC(CTAP,PRESA) . The 
argximent  CTAP  is  the  reservoir  temperature  in  degrees  Kel- 
vin, and  PRESA  is  the  reservoir  pressure  in  atmospheres. 
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The  results  of  the  calculations  are  communicated  from  EQCALC 
to  INGAS  through  the  common  blocks  /EQC/  and  /EQC2/. 

3.26  Subroutine  INIT 

Subroutine  INIT  initializes  a number  of  control  para- 
meters and  nondimensionalizes  the  species  thermochemical 
data  using  the  reservoir  temperature.  Since  the  coding  is 
straightforward,  it  will  not  be  discussed. 

3,27  Subroutine  KANDMU 

S\ibroutine  KANDMU  calculates  quantities  proportional 
to  the  viscosity  and  the  translational  thermal  conductivity 
of  the  gas  mixture  from  equations  1(85)  to  I (87).  The  first 
section  of  the  svibroutine,  down  through  statement  20,  com- 
putes the  quantities (25/8) /t^  ^i  and  (25/8) 
fined  by  equation  1(87),  for  all  species  i in  the  mixture. 

The  value  of  (25/8)  Jt  is  obtained  simply  by  divid- 

ing the  factor  ZM2(I)  out  of  the  quantity  B(I,2)  confuted 
previously  in  subroutine  KENT,  equation  (113)  below,  and 
is  stored  again  in  the  array  B(I,2),  while  the  quantity 
(25/8)  nTt  A^(K)  is  computed  directly  from  1(87)  using  the 
matrix  elements  Q(3,I,J)  calculated  previously  in  subrou- 
tine TRANSP,  The  value  of  (25/8)>Tt  Aj^(K)  is  stored  in  the 
location  B(I,1),  replacing  the  previous  quantity  set  in  KINT, 
which  is  no  longer  needed.  The  reciprocals  of  the  elements 
B(I,L)  are  also  computed  and  stored  in  BR(I,L). 

The  next  section  of  subroutine  KANDMU,  from  statement 
2^^  down  through  statement  70,  computes  the  quantities 

A(l)  = (25/8)nTt 

and  , . (Ill) 

A(2)  =(25/8)>Tt  a^N 


‘from  equation  1(86),  using  the  values  of  the  matrix  ele- 
ments Ui^  ^ and  a- . which  were  previously  stored  in  the 
lower  halves  (I  > jt^of  the  matrices  Q(1,I,J)  and  Q(2,I,J) 
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by  subroutine  TRANSP.  Since  the  values  of  a for  the 
viscosity  and  thermal  conductivity  are  both  computed  from 
the  same  equation,  the  same  coding  can  be  used  here  for 
both  properties,  with  the  index  L = 1 indicating  values 
computed  for  the  thermal  conductivity  and  L = 2 values  com- 
puted for  the  viscosity.  In  connection  with  this  computa- 
tion, it  may  be  noted  that  the  sum  in  equation  1(86)  need 
only  be  carried  over  values  of  I > J,  since  the  matrix 
is  symmetric  and  the  diagonal  terms  do  not  contribute  to’^the 
sum. 

The  final  loop  in  subroutine  KANDMU  down  through  state- 
ment 90  computes  the  values  of  the  subroutine  arguments 
ZRCD  and  ZK(2) , which  are  proportional  respectively  to  the 
translational  thermal  conductivity  and  the  viscosity  of  the 
gas  mixture.  These  values  are  computed  from  equation  1(85), 
using  the  values  of  the  elements  B(I,L)  and  A(L)  whi  h were 
computed  earlier  in  the  subroutine 

3.28  Subroutine  KINT 

The  statements  down  through  statement  10  of  subroutine 
KINT  compute  the  quantities 


B(I,1)=  A f¥ 
k 


and 


6k 


8 


n 

E 

j=i 

Xj  ^ij 

(112) 

n 

Z 

A ^2) 

Xj  Aij 

ZM2(I) 

^ X.a!.^^^ 

jTl  3 XD 

(113) 

which  are  required  in  the  transport  property  calculations. 


Because  of  the  way  in  which  the  data  A . 


(r ) 


are  stored  in 


the  Q array  by  subroutine  TRANSP,  it  is^Aecessary  to  treat 
the  terms  with  i < j and  with  i > j separately  in  these 
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computations;  thus  the  statement  preceding  10  carries  out 
the  sum  over  terms  with  i > j and  statement  10  the  sum 
over  terms  with  i < j.  The  diagonal  terms  with  i = j were 
added  previously  during  the  initialization  of  the  sum  by 
subroutine  TRANSP. 

Following  the  computation  of  the  B(I,1)  and  B(I,2), 
subroutine  KINT  uses  the  computed  values  of  the  B(I,1)  in 
the  small  loop  ending  at  statement  30  to  calculate  the 
value  of  the  argument  ZKINT  = in  units  of  milli- 

watts/cm-°K^' where  internal  component  of  the 

thermal  conductivity  of  the  gas  given  by  equation  1(95). 

3.29  Subroutine  LIST 

Subroutine  LIST  prints  out  certain  portions  of  the 
input  data  for  each  case  so  as  to  provide  a description 
of  the  problem  which  is  to  be  solved  by  the  code.  Subrou- 
tine READ  also  provides  some  output  of  similar  character. 

Portions  of  the  output  normally  produced  by  LIST  are 
omitted  if  they  would  simply  repeat  the  corresponding  out- 
put for  a previous  case.  If  SUPG0  = .TRUE.,  the  gas  model 
is  the  same  as  in  the  preceding  case,  and  the  description 
of  the  gas  model  is  sld-pped.  If  SUPG0  is  .FALSE.,  the  fol- 
lowing tables  are  printed: 

(1)  The  elemental  composition  of  the  gas  in  terms 
of  "atom  fractions",  defined  as  the  number  of 
gram- atoms  of  each  element  per  mole  of  the 
mixture  of  cold  species.  This  table  also  lists 
the  atomic  weights  assumed  for  the  elements. 

(2)  The  data  defining  the  forward  rate  constant 
for  each  of  the  reactions.  This  table  also 
includes  the  criterion  value  CCHI  for  switch- 
ing from  the  perturbation  technique  to  num- 
erical integration,  and  the  third  body  matrix 
for  the  reactions  involving  third  bodies. 
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A table  which  defines  the  chemical  formula  for 
each  species  by  giving  the  = LPIJ(I,J) 

matri:t.  A separate  column  of  this  table  con- 
tains 1 if  a thermo  fit  is  available  for  the 
species,  0 if  not. 

(4)  The  matrix  v/.  of  the  stoichiometric  coefficients 
for  the  product  side  of  all  the  reactions, 

(5)  The  matrix  7^.  of  the  stoichiometric  coeffici- 
ents for  the  reactant  side  of  all  the  reactions. 

(6)  A table  listing  the  data  for  calculations  of 
species  thermal  properties  based  on  the  physi- 
cal model. 

(7)  A table  listing  the  electronic  energy  levels  and 
degeneracies  for  all  the  species  for  which  phy- 
sical model  data  are  provided. 

(8)  A table  of  the  thermo-fit  coefficients  for  those 
species  for  which  thermo  fits  are  provided. 

If  an  electronic  nonequilibrium  gas  model  is  being  used  (NT=2) , 
thon  a table  giving  the  extra  reaction  data  required  by  this 
model  is  inserted  before  the  thermo-fit  table  (8) . 

After  the  gas  model  description  has  been  printed  out, 

LIST  prints  a summary  of  the  input  data  for  model  and  wedge 
calculati ons . 


3.30  Subroutine  MATINV 

This  is  a matrix  inversion  svibroutine.  It  is  called 
by  INGAS  to  compute  the  inverse  A^-^  of  the  matrix  -5  ^ • see 
equation  1(3)  and  associated  discussion.  MATINV  compotes 
the  inverse  of  matrix  A using  the  Gauss-Jordan  reduction 
with  the  maximum  pivot  strategy  (ref.  8). 

3.31  Subroutine  M0DEL 

Subroutine  M0DEL  is  the  principal  routine  for  calcula- 
tions of  conditions  on  models  in  the  NATA  code.  M0DEL  per- 
forms normal-shock  calculations,  computes  conditions  at  the 


inviscid  stagnation  point,  calculates  stagnation  point  heat 
fluxes,  and  provides  output  of  these  results.  In  addition, 
if  conditions  on  VvC-^ge  models  are  to  be  calculated,  wySDEL 
calls  subroutine  WEDGE,  The  overall  structure  of  M0DEL  is 
diagrammed  in  figure  14. 

3.31.1  General  Description 

Immediately  upon  entry,  M0DEL  performs  some  checks  to 
determine  whether  model  condition  calculations  should  be 
done.  Such  calculations  are  skipped  if  both  of  the  logi- 
cal variables  AXISYM  and  WEDGEM  are  false,  or  if  the  free- 
stream  Mach  number  is  less  than  1.5.  The  latter  restric- 
tion is  imposed  because  the  normal  shock  solution  fails  to 
converge  when  the  Mach  niimber  is  below  some  value  in  the 
range  from  1.5  to  about  2.  Models  are  not  normally  tested 
at  such  low  Mach  numbers  in  arc-heated  wind  tunnels  because 
the  corresponding  nozzle  diameter  is  too  small  to  accanmo- 
date  models  of  reasonable  size. 

If  model  calculations  are  to  be  done,  subroutine  ELTIME 
is  called  with  the  argument  IP  = 0 to  record  the  execution 
time  at  the  beginning  of  the  model  calculations.  ELTIME  is 
called  again,  just  prior  to  the  RETURN,  to  determine  the 
CPU  time  elapsed  during  the  model  calculations.  This  time 
is  printed  out.  It  is  usually  about  1 to  3 seconds. 

Before  beginning  the  normal  shock  solution,  M0DEL  sets 
a number  of  flow  quantities  which  depend  upon  the  free-stream 
flow  conditions  and  are  thus  constant  for  a given  call  to 
M0DEL.  When  M0DEL  is  first  called  in  a given  flow  solution, 
the  equilibrium  and  frozen  shock  density  ratios  EPSI^N  and 
EPSF  have  the  value  zero,  set  in  the  calling  routine  (FR0ZEQ 
or  N0NEQ) , These  ratios  are  reset  to  the  value  0.01.  When 
M0DEL  is  called  with  EPSI^N  = 0,  it  computes  the  Prandtl 
number  at  the  model  sirface  temperature,  PRW,  based  on  the 
cold  species  mole  fractions  QPJ(K).  This  value  of  PRW  thus 
asstimes  that  the  gas  at  the  model  surface  is  in  a state  of 
thermochemical  equilibrium  at  the  surface  temperature. 

Most  of  the  calculations  in  M0DEL  are  contained  within 
a large  D0  loop  with  the  D0  index  IS0LN,  beginning  below 
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Figure  14.  Overall  Flowchart  of  Subroutine  M0DEL 
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statement  40  and  ending  at  440.  For  IS0LN  = 1,  the  normal 
shock  is  calculated  assuming  chemical  equilibrium  behind  the 
shock.  For  IS0LN  = 2,  the  flow  across  the  shock  is  assumed 
to  be  chemically  frozen.  If  the  control  variable  FSTAG  is 
0,  the  frozen  shock  calculations  are  skipped  unless  V'^edge 
calculations  are  to  be  done  (WEDGEM  s=  .TRUE.).  If  wedge 
calculations  are  called  for,  the  frozen  shock  solution  is 
carried  out,  regardless  of  the  value  of  FSTAG,  to  provide 
the  frozen  stagnation  temperature  which  is  required  for  use 
in  subroutine  ^^ffiDGE.  If  FSTAG  is  negative,  the  equilibrium 
shock  calculations  arc  skipped. 

For  either  alue  of  IS0LN,  the  conditions  behind  t!.a 
normal  shock  and  those  at  the  inviscid  stagnation  point 
are  calculated  using  method  s discussed  below  in  Sections 
3.31.2  and  3.31.3.  Then  the  stagnation-point  velocity 
gradient  parameter  (R^j/uj^)  (du^/dx)  denoted  by  VGP  (L)  , is 
computed  for  spherical  or  cylindrical  nosed  models  (L  = 1) 
and  for  flat-faced  models  (L  = 2).  The  ratio  SOD(L)  of 
,the  shock  standoff  distance  to  the  model  radius  is  also  cal- 
culated for  L = 1 and  2.  These  calculations  are  based  upon 
equations  1(463)  to  1(465'  for  the  velocity  gradient  para- 
meter. and  1(475)  to  1(478)  for  the  standoff  distance. 

Next,  the  various  heat  flux  values  discussed  in  Section 
8.1.4  of  Volume  I are  computed.  In  preparation  for  these 
calculations,  the  dissociation  enthalpy  h^  of  the  gas  at  the 
inviscid  stagnation  point  (denoced  by  HCF)  is  computed  by 
svunming  the  product  of  the  mole  fraction  and  the  enthalpy  of 
formation  SHJA(I)  over  all  neutral  atomic  species  (see  equa- 
tion 1(544)).  In  the  case  of  an  equilibrivim  shock,  the  mole 
fractions  SAVEC(I)  at  the  stagnation  point  are  obtained  from 
the  common  array  ZCAP(I),  which  is  set  in  subroutine  EQCALC. 
In  the  case  of  a frozen  shock,  the  mole  fractions  are  the 
same  as  those  in  the  free  stream  flow  ahead  of  the  shock, 
and  are  calculated  from  the  concentrations  GJ(I)  using  equa- 
tion 1(1).  In  the  evaluation  of  HCF,  the  sum  is  restricted 
to  neutral  atoms  by  rejecting  all  L.recies  containing  more 
than  one  element,  more  than  one  atoia  of  an  element,  or  a 
negative  number  of  atoms  of  an  element.*  This  algorithm 


*Positive  ions  are  represented  as  compounds  containing  a 
negative  number  of  electrons. 
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accepts  the  electron  species,  which  of  course  is  not  a 
neutral  atom,  but  this  does  not  affect  HCF  because  the 
formation  enthalpy  of  the  electron  is  zero. 

The  transport  properties  ^g(VISC),  Npj.(PR),  Nj^(LE) , 
and  (T  (sigma)  at  the  inviscid  stagnation  point  are  com- 
puted by  calling  subroutine  TRANSP.  The  heat  fluxes  are 
calculated  using  equations  1(466),  1(468)  and  1(469)  with 
suitable  conversion  factors  to  obtain  English  engineering 
units  in  the  output.  For  example,  the  numerical  coeffici- 
ent in  the  Fortran  f rmula  corresponding  to  equation  1(466) 
is  obtained  as  follows; 

3/2 

0.51  = X (3.0.48) 0.763 

453.6  ‘ 

c 

The  factor  of  1.8  converts  the  enthalpies  from  internal  code 
units  of  cal/gro  to  Btu/lb;  (30.48)^'^  converts  cm^/cm^  to 
ft^/ft^;  and  (453.6)“^  converts  g to  lb. 

After  the  heat  fluxes  have  been  computed,  the  results 
of  the  calculations  are  printed  out.  To  this  end,  the  re- 
sults are  first  loaded  into  the  array  SC0UT,  to  allow  use 
of  a relative  _y  compact  output  format.  If  a binary  output 
tape  is  being  prepared  during  the  run  (DATAPE  = .TRUE.), 
certain  of  the  model  condition  results  are  also  written  on 
tape  unit  ITP0UT. 

3.31.2  Normal  Shock  Solution 

Figure  15  diagrams  the  method  used  in  the  normal  shock 
solution.  This  technique  is  explained  in  analytical  terms 
in  Section  8.1.1  of  Volume  I.  The  solution  is  based  upon 
an  iteration  to  determine  the  temperature  T2  behind  the 
shock.  The  value  of  T2  obtained  during  the  previous  call 
to  M0DEL  is  used  as  a first  estimate;  this  value  is  stored 
as  T2E  (equilibrium  shock)  or  T2F  (frozen  shock)  in  commen 
block  /STAG/.  Prior  to  the  first  call  to  M0DEL,  these  val- 
ues are  initialized  to  the  reservoir  temperature. 

The  criterion  for  selection  of  T?  's  that  the  static 
enthalpy  behind  the  shock,  calculated  jcrom  T2  using  equation 
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I (429b),  be  equal  to  the  value  H2  obtained  from  the  Rankine- 
Hugoniot  energy  equation  for  the  shock,  equation  I (432b). 

In  the  case  of  a frozen  shock,  the  gas  is  thermally  perfect 
because  the  mole  fractions  are  constant.  The  static  enthalpy 
ZCH  is  calculated,  in  this  case,  from  species  enthalpies 
obtained  by  calling  subroutine  THERM  after  the  nondimen sional 
temperature  CT  has  been  set  to fre  value  T2/CTAP.  The  pres- 
sure P2  behind  the  shock  is  then  computed  from  1(437),  and 
the  shock  density  ratio  from  I (434) . 

The  equilibrixim  shock  solution  is  more  complicated  be- 
cause in  this  case  the  density  ratio  C is  not  given  as  an 
explicit  function  of  T2.  Thus,  a double  iteration  is  re- 
quired. For  each  trial  value  of  T2,  G and  the  pressure 
P2  are  calculated  by  an  inner  iteration  as  described  in  the 
discussion  around  equation  1(438).  In  this  case,  the  static 
enthalpy  ZCH  and  density  ZRH0  behind  the  shock  are  obtained 
by  calling  subroutine  EQCAIC.  Tlie  outer  iteration  to  deter- 
mine T2  is  the  same  as  for  the  case  of  a frozen  shock. 

The  object  of  the  outer  iteration  is  to  make  ERZ  = ZCH  -H2 
equal  to  zero,  to  vithin  an  accuracy  of  0.1  percent.  The  tem- 
perature T2  satisfying  this  criterion  is  obtained  by  iterative 
linear  interpolation: 


(T2)new  = - ERZ 


THI-TL0 

ERRHI-ERRL0 


(114) 


Here  (T2)j^ey,  is  the  improved  estimate  resulting  from  the 
linear  iterpolation,  (T2)  is  the  previous  estimate,  ERZ 
is  the  enthalpy  error  obtaxned  at  ERRHI  is  the  last 

positive  errc : ERZ  obtained  and  Till  the  corresponding  T2 
estimate,  and  ERRL0  is  the  last  negative  error  obtained  with 
TI^  the  corresponding  temperature.  Of  course,  this  formula 
cannot  be  used  unless  points  with  both  positive  and  i ;ga- 
tive  ERZ  have  been  computed.  This  requirement  is  implemented 
with  the  aid  of  logical  variables  L0  and  HI  which  are  init- 
ialized to  .FALSE..  L0  is  set  to  .TRUE,  when  a negative  ERZ 
is  obtained,  and  HI  is  set  to  .TRUE,  when  a positive  ERZ  is 
found.  If  ERZ  is  negative  and  HI  is  "false",  T2  is  increased 
by  10  percent.  If  ERZ  is  positive  and  L0  is  "false",  T2  is 


1 


decreased  by  10  percent.  The  interpolation  formula  (114) 
is  not  used  until  botli  and  HI  are  .TRUE., 

3.31.3  Conditions  at  the  Inviscid  Stagnation  Point 

After  the  normal  shock  calculation  has  converged,  the 
conditions  at  the  inviscid  stagnation  point  are  computed  as 
explained  in  Section  8.1.1  of  Volume  I.  A flowchart  of  the 
coding  is  given  in  figure  16.  The  logic  is  similar  to  that 
of  the  normal  shock  solution  (figure  15) , but  with  two  sim- 
plifications: 

(1)  The  stagnation  pressure  is  calculated  from  the 
incompressible  Bernoulli  equation  (428b)  with 
no  iteration.  Thus,  only  a single  iterative 
loop  is  required  even  for  the  case  of  equilibrivun 
flow. 

(2)  The  initial  estimate  of  the  stagnation  temper- 
ature TS  is  taken  to  be  the  temperature  T2  just 
behind  the  normal  shock.  Since  T2  is  known  to 
be  lower  than  TS,  the  logical  variable  L0  is 
not  needed  in  the  stagnation-condition  solution. 
Linear  interpolation  is  begun  as  soon  as  a pos- 
itive ERZ  is  obtained,  where  ERZ  is  the  differ- 
ence between  the  known  stagnation  enthalpy  HS 
and  the  local  enthalpy  at  the  stagnation  point 
(ZCH)  computed  frcxn  TS  and  PS, 

3.32  Svibroutine  NEWRAP 

The  function  of  subroutine  HEWRAP  is  to  cor pute  the 
flow  conditions  at  a point  in  the  equilibrium  flow  solu- 
tion, using  the  mechod  e:q>lained  in  Section  6.2  of  Volume 
I,  First,  the  system  of  (c  + 1)  equations  1(227)  and  1(252) 
is  solved  for  the  species  mole  fractions  and  the  pressure 
p.  Then  the  remaining  flow  variables  are  computed  from 
these  data. 

The  Fortrem  notation  in  ITEIVRAP  is  similar  to  that  in 
EQCALC,  already  discussed  in  Section  3.18,  but  there  are  some 
differences  and  additions.  ISMCNR  denotes  the  number  of 
dependent  species.  Initially,  this  is  equal  to  n-c=ISS-ISC. 
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Figure  16.  Flowchart  of  the  Solution  for  Conditions 
at  the  Inviscid  Stagnation  Point 
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The  array  CHII  is  redefined  as  the  logarithm  of  the  equili- 
brivun  constants  1(225)  for  the  dependent  species: 

CHlI(i-c)  = - ^ + S 5^  (115) 

0 0 

where  i^  = IM  is  the  index  of  the  first  independent  species, 
initially  equal  to  1.  A new  array  PGJ  is  defined  by 

Si° 

PGj(i)  = - CRRB  • W.  (116) 

‘‘o 

O . , 

where  denotes  the  molar  entropy  of  the  i^^  species  at 
the  standard  pressure,  is  the  molecular  weight  of  the  i'^ 
species,  and* 


CRRB  = (117) 

Vo 

where  Sq/Rq  is  the  nondimensional  molar  entropy  of  the  gas 
in  the  neservoir  and  Wq  the  reservoir  molecular  weight. 

Immediately  upon  entry, NEWRAP  calls  subroutine  THERM 
to  compute  the  species  thermal  properties  at  the  tempera- 
ture CT*Tq  corresponding  to  the  current  value  of  the  non- 
dimensional  temperature  CT.  NEWRAP  then  sets  up  the  arrays 
CHII  and  PGJ,  defined  above,  and  obtains  a set  of  initial 
estimates  of  the  species  mole  fractions  = CAPX(I)  from 
equation  1(1): 

CAPX(i)  = W (118) 

The  molecular  weight  W = CM  and  species  concentrations 

= GJ(i)  are  the  values  in  storage.  For  the  first  call 
to  NEWRAP,  these  are  reservoir  values.  In  siibsequent  calls, 
they  are  the  final  values  for  the  preceding  flow  point.  Also, 


*CRRB  is  set  in  subroutine  INGAS  following  the  entry  INTA. 
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SKIL(I).  is  initialized  to  CAPX(I),  and  ZP  to  in  (PRES) , 
where  PRES  is  the  stored  value  of  the  nondimensional  pres- 
sure. 

The  Newton-Raphson  iterative  loop  starts  at  statement 
70,  The  system  of  linear  equations  to  be  solved  in  each 
step  of  the  iteration  is  1(258)  . The  constant  terms  Fj (Y^) 
are  loaded  into  the  M2th  column  of  the  matrix  AA,  where  M2  = 
c + 2.  For  j = 1 to  c,  these  terms  are  given  by  equation 
1(227),  and  are  computed  in  the  Df3  loops  ending  at  statement 
90.  The  constant  term  for  j = c + 1 is  given  by  1(252), 
and  is  loaded  into  AA(M1,M2)  by  the  statements  between  90 
and  100.  In  the  loop  "D0  100",  the  upper  limit  ISSNR  is 
the  current  nvimber  of  species  included,  initially  equal  to 
ISS, 

The  matrix  of  coefficients  for  the  system  of  equations 
1(258)  is  loaded  into  the  first  (c  + 1)  rows  and  columns  of 
AA,  The  coefficients  I (233b)  for  j = ijj^  to  c and  k = ij^j  to 
c go  into  the  first  c rows  and  colxomns,  and  are  set  by  the 
nested  D0  loops  ending  with  statement  150.  The  coefficients 
I(26Ib)  for  j=c  + 1 and  k = i^jj  to  c are  computed  in  the  D0 
loops  ending  at  statement  170.  The  coefficient  I (261c)  for 
j = c + 1 and  k = c + 1 is  set  up  by  the  loop  D0  180.  Fin- 
ally, the  coefficients  I (261a)  for  j = iJ^^  to  c and  k = c + 1 
are  loaded  into  AA  by  the  D0  loops  ending  at  statement  210. 

If  the  number  of  dependent  species  ISMCNR  is  zero  a 
logical  indicator  N0DEPS  is  set  to  .TRUE,  at  the  beginning 
of  NEWRAP.  Tests  on  N0DEPS  then  cause  the  subroutine  to 
skip  all  of  the  D0  loops  with  D0  indices  running  from  1 to 
ISMCNR,  in  which  sums  from  c + 1 to  n are  evaluated. 

During  an  equilibrixjm  expansion  to  high  fech  nvunbers,  the 
mole  fractions  of  ionized  species  can  become  extremely  low 
as  the  gas  temperature  falls  to  a small  fraction  of  its  val- 
ue in  the  reservoir.  To  avoid  computational  problems  aris- 
ing when  the  electron  mole  fraction  becomes  exceedingly  small, 
the  electrons  and  all  ionized  species  are  eliminated  from  the 
equilibrium  calculation  whenever  the  electron  mole  fraction 
drops  below  lO”^®.  The  test  for  this  condition  is  in  state- 
ment 220.  If  CAPX(l)  is  found  to  be  < 10""20^  the  following 


actions  are  taken; 


(1)  The  indicator  JJK  is  reset  from  its  initial  value 
of  0 to  1.  The  latter  value  signifies  that  the 
elimination  of  charged  species  has  already  been 
performed. 

(2)  The  number  of  ions  (IC)  is  subtracted  from 
ISMCNR  and  IS SNR. 

(3)  IM  is  increased  from  1 to  2. 

(4)  AA(1,1)  is  set  to  1,  and  all  the  other  entries 

' in  the  first  row  and  first  column  of  AA  are  set 

to  0. 

(5)  The  electron  mole  fraction,  CAPX(l),  is  set  to 

0. 

(6)  The  mole  fractions  of  all  the  ion  species  are 
set  to  0. 

Regardless  of  whether  the  charged  species  have  been 
eliminated,  the  system  of  equations  1(258)  is  solved  by  cal- 
ling svibroutine  DSMS0L.  Improved  values  for  the  species 
mole  fractions  and  the  pressure  are  then  obtained  using  equa- 
tions 1(262).  The  correction  factor  1 + h^^^  in  1(262)  is  de- 
noted by  ZB  for  n = 1 to  c (i.e.,  for  the  mole  fractions), 
and  by  ZC  for  n = c + 1 (the  pressure) . If  any  of  these 
correction  factors  turns  out  to  be  0 or  negative,  the  cor- 
responding quantity  (mole  fraction  or  pressure)  is  adjusted 
by  dividing  it  by  2.  Based  on  the  improved  values  of  p and 
the  X^,  the  other  quantities  in  the  calculation  (ZP  =-^np/po 
and  CGMU(K)  =^nX]^),  are  then  recomputed.  Next,  the  mole 
fractions  for  the  dependent  species  are  computed  from  the 
equilibrium  relations  1(224),  which  are  written  in  the  log- 
arithmic form 

c _ 

fn  Xi  = in  - Din  P + "£  UW) 

^ 1 
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The  term  /n  is  denoted  in  NEWRAP  by  CHII(i),  equation 
(115).  The  in  are  computed  in  the  array  SKIL(i-c)  and 
the  resulting  values  are  saved  in  CGMU(i).  Then  the 
themselves  are  computed  by  taking  exponentials  and  are 
stored  in  SKIL(i-c)  and  in  CAPX(i) . 

The  convergence  criterion  for  the  iteration  is  that  the 
absolute  magnitudes  of  all  of  the  relative  corrections  hj^^ 
be  smaller  than  cr  equal  to  TEST  = 10“^.  When  convergence 
has  been  achieved,  the  other  flow  \ariables  are  computed 
from  the  pressure,  the  mole  fractions,  and  the  known  res- 
ervoir conditions.  The  relations  used  in  these  calcula- 
tions are  equations  1(236),  1(237),  and  1(242)  for  the  mole- 
cular weight,  density,  and  specific  enthalpy,  equations  I (79b) 
and  1(81)  for  the  effects'  of  gas  imperfections,  equation 
1(263)  for  the  flow  velocity,  and  equation  1(264)  for  the 
mass  flux.  As  noted  in  Section  3.22.1,  the  flow  variables 
are  computed  in  nondimensional  form. 

3.33  Subroutine  NEXTMP 

The  function  of  subroutine  NEXTMP  is  to  determine  the 
location  (XM0DEL)  of  the  next  point  at  which  model  condition 
calculations  are  to  be  done.  In  the  case  of  channel  flow 
solutions,  the  routine  determines  the  location  corresponding 
to  the  next  specified  channel  width. 

The  first  two  arguments  of  NEXTMP  specify  which  of  the 
model  points  called  for  in  the  input  have  already  been  passed 
in  the  current  solutxon.  ITS  is  the  index  of  the  next  of  the 
specified  test-section  diameters  or  channel  widths,  while 
XM0D1  is  the  x-coordinate  the  next  model  point  in  the  geo- 
metric sequence  of  model  points. 

In  the  case  of  channel  flow  (NPRFLS  = 2),  the  geometric 
sequence  is  not  used.  NEXTMP  simply  calls  subroutine  FINDXC 
to  determine  the  position  XM0D2  at  which  the  width  of  the 
wide  (MBLth)  profile  has  the  specified  value  TSAR (ITS) , and 
sets  XM0DEL  equal  to  XM0D2. 

In  the  case  of  nozzle  flow  (NPRFLS  = 1) , the  next 
model  point  may  be  either  the  next  point  (XM0D1)  in  the 
geometric  sequence  or  the  point  with  the  next  specified  area 


120- 


I 


ratio.  In  this  case,*  NEXTMP  calls  FINDX  to  determine  the  location 
(XM0D2)  of  the  point  with  the  area  ratio  TSAR (ITS),  and  sets 
XM)^DEL  to  the  lower  of  the  two  values  XF0D1,  XM0D2,  If  the  next 
point  turns  out  to  be  at  the  specified  area  ratio,  ITS  is  incre- 
mented by  1 to  signify  that  TSAR (ITS)  has  been  used.  If  the  next 
point  is  a point  in  the  geometric  sequence, X^^D1  is  replaced  by 
FACMP  times  Xf^Dl, which  is  the  next  subsequent  value  of  the  se- 
quence. 

3 . 34  Sxibroutine  N0NEQ 

N0NEQ  is  the  controlling  routine  for  the  nonequilibrium 
flow  solution.  The  overall  method  of  solution  has  been  ex- 
plained in  Section  7^2  of  Volvime  I.  Briefly,  the  solution 
is  started  upstream  of  the  throat,  near  the  reservoir,  using 
the  perturbation  method.  At  each  step  in  the  perturbation 
solution,  the  quantities  <5%.  (which  are  measures  of  the 
departures  of  the  reactions  irom  equilibrium)  are  calculated 
and  tested.  When  aiiy  one  of  these  quantities  reaches  a spe- 
cified size,  the  perturbation  technique  is  abandoned  and  the 
solution  is  continued  by  numerical  integration.  If  the  in- 
tegration is  begun  well  downstream  of  the  throat,  it  is 
carried  out  using  the  normal,  direct  method  in  which  the 
specified  nozzle  geometry  is  taken  to  be  a condition  on  the 
flow.  However,  if  the  integration  is  started  upstream  of 
the  throat,  an  inverse  method  is  used,  in  which  the  equil- 
ibrium density  distribution  /O (x)  is  used  to  define  the  flow. 

In  this  case,  a switch  is  made  from  the  inverse  method  to 
the  direct  method  when  the  solution  reaches  a point  slightly 
beyond  the  throat. 

Figure  17  is  an  overall  flowchart  cf  subroutine  N0NEQ. 

This  flowchart  shows  how  the  various  methods  are  organized 
to  produce  the  entire  solution.  The  operations  enclosed  in 
double  boxes  are  represented  by  separate  flowcharts  and  dis- 
cussed below.  lUPD  is  an  indicator  which  is  initialized  to 
1 (in  subroutine  READ),  and  is  reset  to  0 (in  subroutine 
THR0AT)  at  the  switch  from  the  upstream  to  the  downstream 
region.  INEQ  is  another  indicator,  initialized  to  0,  and 
set  to  1 when  the  numerical  integration  is  started.  Fig- 
ure 17  does  rot  show  any  exits  from  the  control  loops  that 
generate  the  solution,  because  the  case  termination  con- 
crols  are  within  the  boxes  labelled  "Numerical  integration" 
and  "Perturbation  solution".  The  statements  involving 
M0DLPT,  XMSET,  and  subroutine  NEXTMP  pertain  to  the  calcu- 
lation of  conditions  at  model  points,  and  are  discussed  be- 
low. 


-121- 


6INAL  PAGE  IS 
POOR  QUALITY? 

-122-  I 

* 


Figure  17.  Flowchart  of  Subroutine  N0NEQ 


The  remaining  parts  of  this  section  discuss  individual 
portions  and  aspects  of  subroutine  N0NEQ  in  detail, 

3.34.1  Initializations 

Figure  18  is  a flowchart  of  the  initializations  sec- 
tion of  N0NEQ,  represented  by  the  uppermost  double  box  in 
figure  17.  This  flowchart  shows  only  the  initializations 
of  control  variables.  In  the  subroutine,  several  physical 
variables  are  also  set,  but  their  values  are  not  needed 
for  following  the  logic. 

The  perturbation  technique,  which  is  used  to  start 
the  .solution,  proceeds  by  taking  steps  in  temperature,  AT. 

The  initial  temperature  decrement  is  given  by  AT/Tq  = DELTl, 
where  the  variable  DELTl  is  under  input  control  and  has  a pre- 
set value  of  0.01.  This  preset  value  of  DELTl  gives  fairly 
large  steps  in  the  perturbation  solution.  In  cases  includ- 
ing the  boundary  layer (ISW3B  00),  to  allow  more  accurate 
evaluation  of  the  boundary  layer  integral  1(172),  DELTl  is 
reset  to  0.049  (1  - CTMAX) , where  CTMAX  is  the  nondimensional 
sonic  temperature  T*/Tq  based  on  the  equilibrium  solution. 

This  value  gives  20  steps  upstream  of  the  throat  if  the  perturba- 
tion technique  is  used  all  the  way  to  the  throat.  If  the  numerical 
integration  is  started  upstream  of  the  throat, as  is  usually  the 
case, the  number  of  steps  is  larger  because  the  initial  step  size  in 
the  integration  is  much  smaller  than  the  initial  perturbation  step 
size. 

The  temperature,  species  concentrations,  and  gas  prop- 
erties are  initialized  for  the  nonequilibrium  solution  in 
the  main  program.  Before  calling  N0NEQ,  the  main  program 
sets  the  nondimensional  temperature  CT  equal  to  1.  - DELT, 
where  DELT  is  set  by  the  same  rules  used  in  calculating 
DELTl  in  N0NEQ,  MAIN  then  calls  NEWRAP  to  determine  the 
equilibrium  flow  conditions  at  this  temperature,  calculates 
the  effective  area  ratio,  and  determines  the  corresponding 
position  in  the  nozzle  by  calling  FINDX, 

As  expJ.ained  in  Section  7.3  of  Volume  I,  the  system  of 
equations  used  in  the  perturbation  technique  is  solvable 
only  if  the  [h . . matrix  has  a rank  of  n-c.  The  initializa- 
tions section  ii  N0NEQ  computes  the  rank  IX  of  BETA(I,J) 
and  executes  an  error  exit  if  IX  is  not  equal  to  n-c. 
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DQMAX=0. 

QE0LD=O. 

NSTEPS=0 

ISTEPS=0 

ISUBD=0 

M0PLPT=. FALSE. 

XMSET=. FALSE. 

XM0DEL=1O^® 

IRA=0 

IC0UNT=O 

N0REAC(I)=.FALSE. 

(1=1  to  ISR) 

IS5=ISW5B 

DELTSV=DELT1 

DX0LD=DELTAX 

SC=1.1 

SCD=2 

NNS=0 

NNN=0 

INEQ=0 

Figure  18.  Flowchart  of  Initializations  Section 
03.  .’ubroutine  N^NEQ 
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3,34.2  Switch  to  Downstream  Region 

Figure  19  is  a flowchart  of  the  operations  represented 
by  the  box  labelled  "Switch  to  downstream  region?"  in  fig- 
ure 17.  The  coding  shown  in  figure  19  determines  whether 
the  conditions  for  switching  to  the  downstream  solution  have 
been  satisfied,  and  if  so,  carries  out  the  switch  by  calling 
subroutine  THF;2AT.  The  conditions  are  as  follows: 

(1*/  DL0GA  = dfiiA/dx,  where  A is  the  area  ratio 
coriiputed  using  the  inverse  method,  must  be 
nonnegative. 

(2)  The  position  of  the  flow  point  must  lie  beyond 
the  geometric  throat  (CX  > 0) . 

(3)  The  area  ratio  A = T^NX  must  be  greater  than 
or  equal  to  a value  DATEST  which  is  prrset 
(in  subroutine  INIT)  to  1,01. 

When  all  of  these  conditions  have  been  satisfied,  a large 
ntimber  of  flow  variable  and  control  parcimeters  are  sa'” 
in  the  arrays  TB,  ITB,  and  BLBK,  and  the  switch  to  the 
stream  region  is  executed  by  calling  THRjSAT.  In  THR0AT,  lUPD 
is  reset  to  0 and  RSA  is  set  to  a value  which  rescales  the 
actual  nozzle  geometry  to  make  it  consistent  with  A. 

In  cases  including  the  boundary'  layer,  the  coding  in 
figure  19  also  sets  the  0MDST(I)  array  based  on  the  dis- 
placement thickness  DELBL(I)  at  the  first  point  where  the 
conditions  (1)  and  (2)  are  satisfied. 

3.34.3  Restart  of  the  Upstream  Solution 

Figure  20  is  a flowchart  of  the  operations  represented 
by  the  box  labelled  "lUPD  = 1,  Increase  DATEST,  Restart  at 
Switch  Point"  in  figure  17.  This  section  of  N^lIEQ  is  en- 
tered when  a positive  value  of  din/^/dx  = DL0GR  is  encoun- 
tered in  the  downstream  solution.  If  this  condition  arises 
so  far  beyond  the  upstream/downstream  switch  point  that  the 
effective  area  ratio  Aq  = AFNX  exceeds  DATEST  by  5 percent 
of  DATEST  or  more,  an  error  exit  is  executed.  Otherwise, 
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Figure  19.  Flowchart  of  Switch  to  Downstream  Region 
in  Subroutine  N0NEQ 
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Figure  20.  Flowchart  of  Restart  of  the  Upstream  Solution 
at  the  Switch  Point  in  Subroutine  N0NEQ 
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the  program  assumes  that  the  positive  d-/n/^/dx  value  is  a 
result  of  switching  to  the  do\imstrcam  solution  too  near 
the  throat,  and  attempts  to  recover  the  correct  solution. 

To  this  end,  the  excess  of  DATEST  over  unity  is  doubled, 
lUPD  is  reset  to  1 (signifying  the  upstream  solution) , the 
flow  variables  and  control  parameters  are  all  reset  to  their 
values  at  the  previous  switch  point,  and  the  solution  is 
restarted  at  that  point,  A counter  ARBB  (initialized  to 
0.  in  subroutine  INIT)  is  also  incremented  by  1.  If  the 
d M />/dx  > 0 condition  is  encountered  repeatedly  after  suc- 
cessive restarts,  the  effort  to  continue  the  solution  is 
abandoned  after  four  attempts  (ARBB  > AREA  = 5,,  set  in 
INIT) . Also,  before  the  restart  is  executed,  the  condi- 
tions at  the  final  point  , of  the  invalid  do\>mstream  solution 
are  printed  out  by  setting  TPRINT  = 0.  and  calling  PRTA. 

If  a binary  output  tape  is  being  produced  for  subsequent 
use  by  the  NATA  plot  program,  the  records  containing  data 
from  the  invalid  solution  beyond  the  switch  point  are  eli- 
minated by  backspacing  the  tape. 

3.34.4  Perturbation  Solution  and  Switch  to  Integration 

Figure  21  is  a flowchart  of  the  operations  represented 
by  the  boxes  labelled  "Perturbation  solution"  and "Switch  to 
.integration?"  in  figure  17,  These  operations  may  be  sum- 
marized as  follov/s: 

(1)  Subroutine  PERT  is  called  to  compute  the 
perturbations  PCT  (in  the  nondimensional 
temperature),  PERTGJ(J)  (in  the  species  con- 
centrations), and  SDCHI(I)  (in  the  reaction 
parameters  Z^)  • 

(2)  If  the  solution  is  in  the  dovmstrecim  region 
(lUPD  = 0)  and  the  nondimensional  temperature 
decrement  PELT  is  still  equal  to  the  reduced 
value  of  DELTl  (see  part  3.34.1  above),  BELT  is 
reset  to  the  input  value  of  DELTl,  which  was 
saved  in  DELTSV.  This  is  done  because  the 
step  size  in  the  perturbation  solution  is 
sufficiently  small  in  the  throat  and  near 
dovmstroom  region,  even,  when  the  larger  dec- 
rement is  used. 
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Figure  21.  Flowchart  o<  Perturbation  Solution  and  Switch  to  Integration  in  Subroutine  KpUZO 


(3)  The  largest  SDCHI(I)  value  (DCHMAX)  and 
the  smallest  (DCHMIN)  are  determined. 

(4)  The  ratio  RATI0  = DCHMIN/DCHMAX  is  examined. 

If  this  ratio  is  larger  than  or  equal  to  a 
value  DCHRAT  (preset  in  BL0CK  DATA  to  10”^) , 

N0NEQ  proceeds  to  the  checks  for  the  switch 
to  numerical  integration,  item  (5)  below.  If 
RATI^  is  less  than  DCHRAT,  the  reaction  sys- 
tem assumed  in  the  gas  model  will  lead  to  a 
switch  to  integration  at  a point  where  some 
of  the  reactions  are  still  very  near  equili- 
brium. The  value  of  RATI0  is  approximately 
indendent  of  the  size  of  DCHMAX;  thus,  the 
program  responds  to  an  excessively  small 
value  of  RATI0  immediately,  even  though 
DCHMAX  may  be  much  smaller  or  much  larger 
than  the  value  CCHI  at  which  the  switch  to 
integration  is  desired.  To  prevent  the  pre- 
mature start  of  the  numerical  integration, 

NATA  artificially  increases  the  rate  constant 
for  the  reaction  (I  = IMAK)  for  which  |SDCHI(I)|= 
DCHMAX,  if  this  can  be  done  without  significantly 
affecting  the  solution.  This  procedure  is  dis- 
cussed near  the  end  of  Section  7.3  in  Volume  I. 

If  RATI0  < DCHRAT,  N0NEQ  determines  vhether 

this  reaction  involves  a minor  species  (con- 
centration less  than  or  equal  to  GAMIN,  pre- 
set to  10” 10)  whose  concentration  is  being 
decreased  by  the  reaction.  If  so,  the  rate 
constant  for  the  IMAX^h  reaction  is  increased 
by  a factor  of  RATI02  =1.1  *DCHRAT/RATI0,  and 
the  perturbation  calculation  for  the  previously 
assumed  temperature  is  repeated.  If  not,  the 
perturbation  solution  is  continued  without 
adjusting  the  rate  constant, 

(5)  The  next  step  is  to  check  whether  DCHMAX  has 
reached  the  value  CCHI  at  which  the  switch 
to  the  numerical  integration  is  desired.  If 
DCHMAX  is  less  than  CCHI,  the  perturbation 
solution  continues.  If  the  axial  coordinate 
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CX  is  greater  than  or  equal  to  the  current 
val  le  of  XM0DEL  (the  coordinate  of  the 
next  model  point) , the  indicator  M0DLPT 
is  set  to  .TRUE.,  and  subroutine  NEXTMP 
is  called  to  determine  a new  value  for 
XM0OEL.  In  any  event,  subroutine  PRTA 
is  called  to  provide  output  of  the  com- 
puted flow  conditions  at  the  current  point 
of  the  perturbation  solution.  If  M0DIfT 
is  .TRUE.,  PRTA  also  calls  subroutine 
I^DEL  to  calculate  test  conditions  on  a 
model. 

(6)  After  the  return  from  PRTA,  the  case  termi- 
nation tests  are  applied.  If  CX  is  greater 
than  or  equal  to  CXMAX,  or  if  the  nondimen- 
sional  teiaperature  CT  is  less  than  or  equal 
to  TST0P,  control  is  transferred  to  state- 
ment 660.  The  flow  conditions  and  model 
conditions  at  the  final  point  are  then  printed 
and  the  RETURN  is  executed. 

(7)  ‘If  case  termination  has  not  been  reached,  the 
temperature  CT  is  decremented  by  DELT,  and 
subroutine  NEWRAP  is  called  to  compute  the 
equilibrium  flow  conditions  at  the  new  temp- 
erature. The  equilibrium  effective  area  ratio 
APNTS  is  then  calculated  from  the  continuity 
equation  1(265),  and  subroutine  AXFIT  is  cal- 
led to  determine  the  axial  coordinate  CX  at 
this  area  ratio.  Control  is  then  transferred 
to  statement  220  ("CALL  DERIVS"  in  figure  17). 

(8)  Once  DCHMAX  reaches  or  exceeds  the  criterion 
value  CCHI  for  the  switch  to  integration  in 
step  (5),  N0NEQ  commences  an  iterative  adjust- 
ment of  the  nondimensional  temperature  CT  in 
order  to  obtain  a flow  point  at  which  DCHMAX= 
\SZ  iljj,^  satisfies  both  of  the  conditions  in 
equation  1(381).  Usually  the  perturbation 
solution  overshoots  the  second  condition  1(381), 
i.e.,  DCHMAX  is  greater  than  PCTEST*CCHI, where 
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PCTEST  = 1.2  (set  in  subroutine  INIT) . When 
this  occurs,  N0WEQ  cuts  DBLT  in  half,  adds 
BELT  to  CT  in  order  to  obtain  a ten^erature 
halfway  between  the  current  value  and  the 
preceding  one,  and  coitqputes  the  corre^onding 
point  in  the  perturbation  flow  solution  by 
calling  NEWRAP  and  AXFIT  as  in  step  (7)  above. 
This  procedure,  together  with  the  normal  pro- 
cedure for  advancing  the  pertui'bation  solution 
(step  (7) ) , repeatedly  subdivides  the  tempera- 
ture interval  known  to  contain  the  flow  points 
satisfying  the  conditions  1(381). 
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(9)  When  a point  satisfying  both  of  the  conditions 
1(381)  has  been  obtained,  the  switch  from  the 
perturbation  technique  to  numerical  integration 
is  carried  out.  The  indicator  INEQ  is  reset 
from  0 to  1 and  the  perturbations  PCT,  PERTGJ(J) 
and  PRH0  are  added  to  the  corresponding  equilib- 
rivim  flow  quantities  CT,  GJ(J),  and  RH0.  The 
integration  step  size  DELTAX  is  adjusted,  if 
necessary,  to  make  it  no  larger  than  DXM  = 0.01* 

. DCHMIN/DCHLL,  where  the  input  DCHLL  is  preset 
to  10“^  in  BL0CK  DATA.  This  adjustment  pro- 
vides a reduced  initial  step  size  when  DCHMIN  = 

. at  the  switch  point  is  smaller  than 
10“4^  i.e.,  when  some  of  the  reactions  are  still 
very  close  to  equilibrivun.  If  this  reduction  in 
DELTAX  were  omitted,  the  normal  step  size  con- 
trols of  the  itegration  would  still  bring  DELTAX 
down  to  similar  values  at  the  cost  of  some  addi- 
tional computation.  Any  rate  constants  which 
have  been  artificially  increased  in  step  (4)  are 
now  restored  to  their  correct  values.  Subroutine 
DERIVS  is  called  to  compute  the  derivatives  and 
supplementary  flow  variables  at  the  switch  point, 
based  on  the  perturbed  tempera cure  and  concentra- 
tions, and  control  is  transferred  to  the  nvrnier- 
ical  integration  section  of  N0NEQ.  If  the  indi- 
cator FAILED  is  .TRUE,  after  the  call  to  DERIVS, 
an  error  exit  is  executed.  This  indicator  is 
.TRUE,  if  the  flow  conditions  fail  to  pass  cer- 
tain validity  checks  in  DERIVS  and  C0MM. 
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3.34.5  Numerical  Integration 

Figure  22  is  a flowchart  of  the  operations  represented 
by  the  box  labelled  "Numerical  integration"  in  figure  17. 
These  operations  may  be  svimmarized  as  follows: 

(1)  The  case-termination  checks  are  the  same  as  in 
the  perturbation  solution.  If  CX  2.  CXMAX  or 
CT  <.  TST)3P,  control  is  transferred  to  statement 
660.  The  flow  conditions  and  model  conditions 
at  the  final  flow  point  are  then  printed,  and 
the  RETURN  is  executed. 

(2)  If  the  end  of  the  case  has  not  been  reached,  tte 
counter  NNN  is  incremented  and  subroutine  PRTA 
is  called  to  provide  output  of  the  conditions  at 
the  flow  point  reached  during  the  preceding  inte- 
gration step. 

(3)  Next,  the  integration  step  size  DELTAX  and  the 
factors  SC  and  SCO  used  in  changing  DELT.  X are 
adjusted.  If  NNN  is  equal  to  NQS  (an  input  par- 
ameter, preset  to  4) , then  DELTAX  is  multiplied 
by  SC,  NNS  is  incremented  by  1,  and  NNN  is  reset 
to  0.  Then  if  NNS  is  equal  to  NQS,  SC  is  in- 
creased by  0.1,  SCD  is  reset  to  the  new  SC  value, 
and  NNS  is  reset  to  zero.  For  NNN  < NQS,  no 
changes  are  made  in  these  variables. 

(4)  In  preparation  for  the  next  integration  step,  the 
current  values  for  CX,  CT,  GJ(I),  and  other  quan- 
tities are  saved  in  the  storage  locations  CXB, 
CTB,  GJB(I),  etc.  If  the  forthcoming  step  should 
fail  for  any  reason,  these  data  will  be  used  in 
restarting  the  solution  at  the  beginning  of  the 
step  with  a smaller  step  size. 

(5)  Next,  the  anticipated  position,  CX  + DELTAX,  at 
the  end  of  the  forthcoming  step  is  compared  with 
XM0DEL  and  CXMAX.  If  CX  + DELTAX  is  greater  than 
either  of  these  values,  DELTAX  is  reduced  to  make 
the  end  of  the  step  coincide  with  the  lesser  of 


the  two.  If  the  end  of  the  step  will  be  at  XM0DEL, 
then  M0DLPT  is  set  to  .TRUE,  and  the  DELTAX  value 
before  the  reduction  is  saved  in  DXSAVE. 

(6)  Subroutine  RNKT  is  called  to  compute  the  cheinges 
in  the  dependent  variables  over  the  integration 
step. 

(7)  The  indicator  FAILED  is  tested.  A .TRUE,  value 
of  FAILED  indicates  that  a validity  check  was  not 
satisfied  somewhere  in  RNKT,  DERIVS,  or  C0MM. 

If  FAILED  = .TRUE.,  the  step  size  is  reduced  by 
dividing  DELTAX  by  SCD  and  the  calculation  is  re- 
started at  the  beginning  of  the  step,  using  the 
data  saved  in  step  (4) . In  the  event  of  such  a 
step  restart,  a counter  IC0UNT  is  incremented. 

Also,  f^DLPT  is  set  to  .FALSE.,  SCD  is  increased 
by  a factor  of  1.1,  and  SC  is  reduced  by  0.1  (but 
not  below  a value  of  1,1).  In  addition,  NNN  and 
NNS  are  both  set  to  zero.  The  idea  underlying 
these  changes  in  the  step  control  parameters 
is  that  the  failure  was  caused  by  instability 
resulting  from  the  use  of  an  excessively  large 
‘step  size.  Either  the  step  has  been  increased 
too  rapidly,  or  the  solution  is  entering  a region 
where  the  reaction  system  requires  a smaller  step 
size  for  stability.  Thus,  the  step  size  itself 
is  reduced,  and  the  growth  in  step  size  is  both 
temporarily  arrested  and  reduced  in  rate.  The 
increase  in  SCD  allows  the  program  to  reduce  the 
step  size  very  rapidly  if  repeated  failures  are 
encountered  in  the  same  step,  as  sometimes  hap- 
pens in  runs  using  electronic  non equilibrium  mod- 
els. 

(8)  If  FAILED  is  .FALSE,  after  the  call  to  RNKT,  addi- 
tional validity  checks  1(407)  and  1(408)  are  ap- 
plied to  the  results  of  the  integration  step.  If 
any  of  these  conditions  is  violated,  the  step  is 
restarted  with  a smaller  step  size  as  descirbed 
above  in  item  (7),  Also  an  indicator  IF.^'IL  is 
set  to  a distinctive  value  for  each  possible  type 
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of  failure,  IFAIL  is  also  set  when  step  fail- 
ures occur  in  other  subroutines.  Each  time  a 
step  fails  and  is  restarted,  the  IFAIL  value  is 
saved  in  the  integer  array  IF  (IG0UNT) , Thes'^ 
values  can  be  obtained  in  the  printed  output 
by  setting  ISW5B  to  a negative  value  in  the  code 
input.  Output  of  these  data  shows  what  tests, 
species,  etc. , are  controlling  the  integration 
step  size.*  If  a failure  occurs  in  one  of  the 
conditions  I (407a),  I (407c)  on  the  species  con- 
centrations, then  the  program  checks  whether 
the  procedure  of  freezing  the  concentration  of  a 
minor  species  (Section  7.5.3  of  Volume  I)  is 
applicable.  The  conditions  for  use  of  this  pro- 
cedure are  that  the  species  I,  whose  concentra- 
tion GJ(I)  violates  I (407a)  or  l(407c),  should 
have  a concentrcition  GJB(I)  at  the  start  of  the 
step  less  than  GAMIN,  and  that  the  concentration 
change  for  this  species  over  the  step,  SDGJ(I), 
be  negative.  If  these  conditions  are  satisfied, 
all  of  the  reactions  contributing  to  changes  in 
the  concentration  of  this  species  are  frozen  by 
setting  the  corresponding  elements  of  the  array 
N0REAC(K)  to  .TRUE..  The  step  is  then  restarted 
in  the  usual  way, 

(9)  If  the  conditions  1(407)  and  I (408a, b)  are  satis- 
fied, the  integration  step  is  presximed  to  be  valid 
subject  to  the  condition  I (408c) , which  js  applied 
later.  The  changes  SDT,  SDTE,  SDCHA  in  the  depen- 
dent variables  during  the  step  are  added  to  the 
values  CTB,  CTEB,  CHB  at  the  start  of  the  step  to 
obtain  the  corresponding  values  at  the  end  of  the 
step.  The  species  concentrations  are  then  adjusted 
to  restore  the  original  elemental  composition  of 
the  gas  mixture,  as  described  in  Section  7.1.3  of 
Volume  I and  in  Section  3.34-6  below.  Subroutine 
DERIVS  is  then  called  to  comp\ite  the  derivatives 
and  supplementary  flow  variables  at  the  end  of  the 
step. 


*The  mmierical  code  used  in  IF(IC0UNT)is  defined  in  Section 
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(10)  If  NT  = 2 (electronic  nonequi librium  model),  the 
condition  I (408c)  on  the  change  in  the  energy 
transfer  to  the  electron  gas  (QDPE  or  q^)  is 
now  applied  to  the  final  QDPE  value  resulting 
from  this  cell  to  DERIVS.  If  this  condition 

is  not  satisfied,  the  step  is  restarted  with  a 
reduced  step  size  in  the  usual  way. 

(11)  Once  all  of  the  validity  checks  have  been  passed, 

SCD  is  reset  equal  to  SC  and  the  step-restart 
counter  IC0UNT  is  reinitialized  to  0,  The  cotin- 
ter  ISTEPS  for  successful  steps  is  incremented 
by  1,  The  step  size  DELTAX  is  set  egi’.al  to  the 
larger  of  DELTAX  itself  and  O.7*DX0LD.  Thus,  if 
DELTAX  has  been  reduced  sharply  by  repeated  step  re- 
starts, it  is'here  returned  to  70  percent  of  its  value 
in  the  preceding  step. 

(12)  Control  is  now  transferred  to  statement  210  ("N^DLPT?" 
in  figure  17) . 

3.34.6  Element  Conservation 

The  adjustment  of  species  concentrations  to  restore  con- 
servation of  the  chemical  elements,  explained  in  Section  7.1.3 
of  Volume  I,  is  implemented  by  the  coding  fron  statement  800 
down  to  940  in  N0NEQ.  The  programming  is  straightforward, 
and  can  easily  be  related  to  the  formulas  in  Section  7.1.3 
with  the  aid  of  the  following  summary  of  notations: 


CJ 

cy 

DCI(J) 

5 Cj 

GSQ(I) 

(O'i  ) 

A1N(J,K) 

A.,, 

DCA(K) 



2 • V 

j=i 

AA(I,ISMCP1) 

b^  (before  call  to  DSMS)8L) 
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CDIJ(I,K) 

^i- 

AA(I,L) 

^iJ( 

AA(I,ISMCP1) 

i y 

5 (after  call  to  DSMS0L) 


The  system  of  equations  1(346)  .is  solved  for  by  calling 

subroutine  DSMS0L,  After  the  adjusted  concentrations  of  the 
dependent  species  (i  = c + 1 to  n)  have  been  calculated  from 
1(340)  and  those  of  the  independent  species  (i  = 1 to  c) 
from  1(338),  the  condition  l(407a)  is  applied  to  the  adjusted 
concentrations.  If  any  of  these  concentrations  is  found  to 
be  negative,  the  step  is  restarted  with  a reduced  step  size 
in  the  usual  way, 

3.34.7  Model  Points 


The  position  of  the  next  model  point,  at  any  point  in 
the  flow,  is  denoted  by  XM0DEL,  Whenever  a particular  model 
point  has  been  reached  and  the  model  calculations  have  been 
done,  the  new  XM0DEL  value  is  obtained  by  calling  subroutine 
NEXTMP(1TS,XM0D1,XM0DEL) . The  argument  ITS  is  the  index  of 
the  next  specified  test  section  diameter,  and  XM0D1  is  the 
coordinate  of  the  next  model  point  in  the  geometric  sequence 
of  model  points.  Svibroutine  3SEXTMP,  each  time  it  is  called, 
determines  whether  the  next  model  point  is  at  the  test  sec- 
tion diameter  with  index  ITS  or  at  XM0D1,  sets  XM0DEL  accord- 
ingly, and  updates  ITS  or  XH0D1  as  required.  Before  NEXTMP 
is  called  for  the  first  time  in  N0NEQ,  the  initial  values 
ITS  = 1 and  XM0D1  = XMPl  must  be  set.  This  is  done  by  cod- 
ing shown  in  figure  17  , at  the  first  point  where ’the  Mach 
niimber  AMACH  has  reached  or  exceeded  a value  of  1,5.  A 
.TRUE,  value  of  the  indicator  XMSET  denotes  that  this  init- 
ialization has  already  bean  performed. 

The  indicator  M0DLPT,  if  .TRUE,,  denotes  that  the  cur- 
rent flow  point  in  the  perturbation  solution  or  the  integra- 
tion is  a model  point.  If  M0DLPT  = .TRUE,,  t?TA  calls  entry 
0UT2  of  subroutine  0UT1  to  print  the  flow  conditl'^ns  (even 
though  the  TPRINT  criterion  may  not  be  satisfied)  and  calls 
M0DEL  to  compute  and  print  the  model  test  conditions. 


When  a model  point  is  encou*.tered  during  the  numerical 
integration,  DELTAX  is  reset  to  provide  a flow  point  exactly 
at  the  model  point,  'During  the  perturbation  -solution,  M0DEL 
is  called  at  the  first  solution  point  beyond  XJM0DEL,  To  ob- 
tain a perturbation  solution  point  coinciding  with  XM0DEL 
vrould  require  an  iteration,,  as  in  the  equiliL-’ium  and  frozen 
flow  solutions,  because  the. flow  is  generated  by  decrement- 
ing the  temperature,  not  by  incrementing  the  position  coor- 
dinate, Such  an  iteration  has  not  been  provided  in  tlie 
coding  because,  in  the  normal  applications  of  NATA,  the 
switch  from  the  perturbation  technique  to  the  numerical  in- 
tegration always  occurs  upstream  of  the  point  where  the  Mach 
number  is  equal  to  1.'^. 

* c 

3.34rf8  Error  Exits 

Subroutine  N0NEQ  contains  ten  error  exits,  marked  con- 
spicuously with  comment  cards  in  t’le  listing.  Whenever  one 
of  these  exits  is  executed,  a message  giving  the  error  exit 
number  is  written  out  before  the  DUMP  routine  is  called  to 
provide  diagnostic  data.  This  message  facilitates  deter- 
mining the  nature  of  the  error  that  caused  N0NEQ  to  fail. 

3.35  Subroutine  NRMAX 

This  subroutine  determines  the  sonic  flow  conditions 
for  the  case  of  equilibrivim  flow.  Its  logic  and  structvure 
are  practically  identical  with  those  for  the  corresponding 
calculation  for  frozen  flow,  performed  in  subroutine  FR0ZEQ, 
The  flowchart  for  the  frozen  calculation  (figure  9)  is  appli- 
cable to  subroutine  NRMAX.  The  discussion  in  Section  3.22,2 
is  also  applicable.  In  the  present  case,  the  mass  flux  at 
each  temperature  is  determined  by  calling  subroutine  NEWRAP. 

3.36  Subroutine  0UT 

This  routine  simply  prints  a list  of  definitions  of 
the  labels  used  in  the  output  of  the  flow  conditions  and 
test  conditions  on  models  and  wedges. 
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Subroutine  0UT1  is  the  principal  output  routine  of 
NATA.  When  called  through  its  first  entry  point,  it  pro- 
duces a printed  list  of  the  conditions  at  a special  point 
in  the  flow,  such  as  the  reservoir  or  the  sonic  point.  When 
called  through  its  entry  f$UT2  ( IS0LW) , it  prints  a more  cc»n- 
prehensive  specification  of  the  conditions  at  a general  flow 
point.  In  addition,  if  the  indicator  DATAPE  is  .TRUE.,  a 
call  to  0UT2  causes  a record  to  be  written  on  the  binary 
output  tape  (tape  8),  for  subsequent  use  by  the  NATA  plot 
program.  Figure  23  is  an  overall  flowcheurt  cf  the  sxibrou- 
tine . 

3.37.1  Entry  0UT1 

0UT1  is  called  (by  MAIN)  to  print  the  conditions  in  the 
reservoir  and  at  the  frozen  and  equilibrium  sonic  points. 
Since  a call  to  0UT1  precedes  each  of  the  three  flow  solu- 
tions, 0UT1  is  also  used  to  initialize  some  quantities  used 
by  0UT2. 

The  chemically  frozen  specific  heat  ratio  GAMMA  is  com- 
puted in  a section  of  coding  which  is  used  by  both  0UT1  and 
0OT2.  First,  the  entry  THERMl  of  s\A>routine  THERM  is  called 
to  COTipute  the  ncsidimensional  species  specific  heats  Cpj^/RQ  = 
CCPJ(I)  at  the  current  nondimensional  temperature  CT  = T/Tq. 
The  nondimensional  molar  specific  heat  of  the  gas  mixture  is 
then  computed  as 

CP  s ^ X.  SEi  (120) 

Rq  i»l  ^0 

.lere  the  species  mole  fractions  are  obtained  from  the 
array  SAVEC(I),  where  they  have  been  placed  by  the  calling 
routine.  Then  the  thermodynamic  relation 

Cp  - CV  = Rq  (121) 

is  used  to  obtain  the  specific  heat' ratio,  y : 


of  Subroutine  0UT1 


At  the  conclusion  of  this  calculation,  the  indicator  IFLAG 
is  used  to  transfer  control  to  the  appropriate  portion  of 
the  subroutine,  depending  on  which  entry  point  was  called. 

If  entry  was  through  ^^UTl,  control  passes  to  statement  30, 

The  variables  used  for  output  of  the  flov;  conditions  in 
0UT1,  namely  P0UT,  U0UT,  etc.,  are  then  set.  Next,  the 
effective  cross  sectional  area  of  the  flow  at  the  throat, 
Fi\R£A,  is  computed.  For  ISW3B  = 0 (boundary  layer  neglected), 
FAREA  is  based  upon  the  gecxnetric  dimensions  of  the  nozzle 
or  channel  at  the  throat.  For  ISW3B  0,  the  displacement 
thickness  at  the  throat  is  taken  into  account  using  equation 
1(125),  1(129),  or  1(133)  as  appropriate.  After  it  has  been 
calculated  in  square  centimeters,  FAREA  is  converted  into 
square  feet.  The  total  mass  flow  is  then  computed  by  multi- 
plying FAREA  by  the  sonic  mass  flux  in  Ibm/ft^sec. 


Finally,  the  flow  conditions,  including  the  calculated 
mass  flow  TFI^,  are  printed  out  in  the  form  of  a list.  This 
is  followed  by  a list  of  species  mole  fraction. 

3.37.2  Entry  0UT2 

The  operations  performed  when  the  entry  0UT2(IS0LN)  is 
called,  which  are  represented  by  a double  box  in  figure  23, 
are  flowcharted  in  detail  in  figure  24.  The  canplexity  of 
this  portion  oE  the  sxabroutine  results  from  the  need  to  deal 
with  various  special  cases: 


ISW3B  ^ 0 


ISW3B  = 0 
NPRFLS  = 1 


Boundary  layer  included;  output  in- 
cludes boundary  layer  displacement 
eind  mcxnehtum  thicknesses,  heat  flux, 
shear  stress,  Stanton  number,  etc. 

Bovindary  layer  neglected. 

Flow  is  in  a nozzle. 


NPRFLS  = 2 Flow  is  in  a channel;  two  full  sets 

of  boundary  layer  outputs  if  ISW3B  0. 

JDXM  = 0 Two  dimensional  nozzle. 


1 L 



l-Vt«U-f(l)  •CF(4)M*>; 

lViKlT(2) ; CT^CTAP 

FV»<iT(3)-cr(o)*ni 

wiSife  (4 ) =piu:s*pttn:  w 

p\yvr(5)=CF(i) 

FV>>H'r{7)-CF(2)*KU 

FVt<U-P(0)=AMVMJ 

|•V^!'UT{0)  -=SEM 

r'»j<'.'T(ii)=-Anc: 

10^16* 1 

-flS‘/3B-0? 


D0  170  l=l,NPI{FtSl 


11=7+10*1 

F^>0UT(1I)=CF(C)  *DnLBL(I) 

FV;\rP(lI+l)=CF(6)*T1IETA  .1) 

F\T«UT(II+2)=QWi>>«(l) 

tV/SUT  (11*3)  =T.'4.n;{l) 

FV^UT(ll+4)=l-0*im 

FV0UT(Jl+5) 

sPKREF 

VARK/Jt(6)»l»tAM 


VARHAH(Ie)-7<HAH  I 


CIIDIKS  (2)=2.  *Y»CF  (4) 
aarots  ( 1) =2 . *2*CF  (4) 
FV0UT(6)=1x1O2O 


|HP<FLS=1?| 

1 no. 

ICAU.  CM \R2 (CX, Y.Z) 

->s2_n:.'i3B=o?  1-^ 


FV^(16)=2.  *Z*CF(4) 
FV{SUT(26)=2.  *Y*CF(4) 
VARNAM(16)=KNAM 


1 HPRFLS=2?1 


FV{50T{10)=GAWIA 


[XS\3B=0?  1 OS- 


FV0UT(12):tREPF 

F\'#JUT(  14)  =CF(3)  *VISC 
FypOT(15)=SIGIIA 


CALL  G!VR  (CX.Y) 
F\>0OT  (6)  =2  . *Y*CF  (4) 


CALL  TRAI^P 


PV<»tT(.  4>=VISC*CF(3) 

FVfJUTt : 2)  =FV#5UT(b)  *FVp0T(7)/rV#50T{14) 

I FV^lTi.('5)=Sia’lA 


OBIGINAII  PAGE  IS 
OP  POOR  QUAUTK 


PV»JUT(13)=CH 

II0sl.8*CiiA*CRP/CIIA 


1 isvau=o?  U-: 

les , 

1 FV|SUT(7)=0.?  ^ 

yes 

STFAC«=1./(FV>?UT(5)  *FVJ!0T(7)  * (Il0-ro7) 


Figure  24a.  FlowcliarL  of  the  Operations  Produced  by  Calling  Entry  ilUT2 
o{  Subroutine  flUTl  (Part  a) 
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Axisymmetric  nozzle. 

Include  output  of  SN,  XSN  boundary 
layer  parameters. 

Omit  this  output. 

The  printed  outputs  are,  in  most  cases,  es^ressed  in 
different  physical  units  from  those  used  in  the  internal 
ccxnputations  of  the  code.  Thus,  a major  function  of  J3UT2 
is  to  re-e^ress  these  quantities  in  the  desired  output 
units.  The  converted  flow  variables  in  output  units  are 
loaded  into  cin  array  FV0UT(I) , dimensioned  (35) . This 
scheme  allows  the  use  of  compact  WRITE  statements  based  on 
in^lied  D0  loops.  The  converted  quantities  in  FV^T  are 
also  used  in  the  calculations  of  conditions  on  wedge  models; 
they  are  communicated  to  subroutine  WEDGE  through  the  common 
block  0UTPUT.  Definitions  of  the  FV0UT  array  elements  are 
given  in  the  glossary  of  Fortran  symbols.  Section  4.31, 
However,  the  definitions  will  be  reviewed  here  to  facilitate 
the  study  of  the  flowchart  (figure  24). 

The  following  elements  of  FV0UT  always  have  the  mean- 
ings indicated: 

(1)  Axial  coordinate  , x (inches) 

(2)  Temperature,  T (*^) 

(3)  Enthalpy,  h (Btu/lb) 

(4)  Pressure,  p (atm) 

(5)  Density,  ^ (Ibnv/ft^) 

(7)  Velocity,  u (ft/ sec) 

(8)  Mach  number,  M 

(9)  Entropy,  s (Btu/lbm-®R) 

(10)  Frozen  specific  heat  ratio,  V 


JDIM  = 1 
LIMJSUT  / 0 

LIM0UT  = 0 
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(11)  Effective  area  ratio,  A_ 

(12)  Reynolds  nximber  per  foot 

(13)  Molecular  weight  (g/mole) 

(14)  Viscosity  (Ibin/  ft-sec) 

(15)  Electrical  conductivity  (mho/cm) 

Element  number  6 is  absent  from  this  list  because  its  mean- 
ing varies  with  the  type  of  case,  as  e^tplained  below.  For 
ISW3B  ^ 0,  the  Reynolds  number  per  foot,  viscosity,  and 
electrical  conductivity  are  calculated  in  BLAYER,  and  0UT2 
obtcdns  these  data  from  common  blocks  /BI^UT/  and  /TRPR0P/. 
For  ISW3B  = 0,  BLAYER  is'  not  called  and  these  quantities 
must  be  computed  in  0UT2.  The  viscosity  and  conductivity 
are  obtained  by  calling  subroutine  TRANSP. 

If  the  boundary  layer  is  included  (ISW3B  / 0) , the  ten 
elements  FV0UT(16)  to  FV0UT(25)  are  loaded  with  data  relat- 
ing to  the  boundary  layer.  If,  in  addition,  a channel  geom- 
etry is  being  used  (NPRFLS  = 2),  these  eleme  .ts  contain  the 
data  for  the  boundary  layer  on  the  first  profx-C . and  the 
ten  elements  Fy0UT(26)  to  FV0UT(35)  contain  the  correspond- 
ing data  for  the  second  profile.  The  meanings  for  the  ele- 
ments numbered  17  to  25  are  as  follows: 

(17)  Boundary  layer  displacement  thickness  (inch) 

(18)  Boundary  layer  momentum  thickness  (inch) 

(19)  Heat  flux  to  nozzle  wall  (Btu/ft^-sec) 

(20)  Shear  stress  on  nozzle  wall  (Ibf/ft  ) 

(21)  Recovery  enthalpy  (Btu/lbm) 

(22)  Prandtl  nuinber  at  the  reference  temperature 

(23)  Stanton  number 
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(24)  Reynolds  nuinber  Re^  based  on  momentum  thickness 

(25)  Value  of  Re^  for  boundary  layer  transition 

The  data  on  geometric  area  ratio  eind  nozzle  diameter  or  chan- 
nel widths  is  placed  into  FV0UT(6),  FV)2}UT(16) , and  FVjZJUT(26). 
The  arrangement  of  these  data  depends  upon  the  type  of  case 
being  treated: 

A.  If  ISIV3B  = 0,  NPRFLS  = 1:  FV0UT(6)  = nozzle  dia- 

meter (inch) . In  this  case,  the  geometric  area 
ratio  is  equal  tu  the  effective  area  ratio,  Fy0UT(ll). 

B.  If  ISW3B  = 0,  NPRFLS  = 2:  FV^UT(6)is  set  to  a 

large  value  which  exceeds  the  width  of  the  F for- 
mat used  and  thus  prints  ais  a row  of  asterisks. 

The  width  of  the  channel  surface  lying  on  the 
first  profile  is  set  to  CHDIMS(2).  The  corres- 
ponding width  for  the  surface  with  the  second 
profile  goes  into  CHDIMS(l).  These  CHDIMS(I) 
values  are  printed  on  a separate  line  in  the 
block  of  output.  The  geometric  area  ratio  is 
again  equal  to  the  effective  area  ratio. 

C.  If  ISW3B  0,  NPRFLS  = 1:  FV0UT(16)=  geometric 

area  ratio,  FV^T(6)  = nozzle  diameter  (inch). 

D.  If  ISW3B  ^ 0,  NPRFLS  = 2:  Fy0UT(6)  = geometric 

area  rcttio;  FV0UT(16)  = width  of  channel  surface 
lying  on  the  first  profile  (inch) ; and  Py0UT(26)  = 
width  of  channel  surface  lying  on  the  second  pro- 
file (inch) . 

Note  that  in  the  channel  case  (NPRFLS  = 2) , the  width  of  the 
surface  lying  on  a given  profile  is  twice  the  ordinate  of 
the  other  profile. 

After  the  data  have  been  loaded  into  the  output  arrays, 
they  are  printed  out.  First,  a line  of  asterisks  is  printed 
to  separate  the  new  block  of  output  from  the  previous  one. 
Imbedded  in  this  line  is  a woid  ("frozen",  "equilibri\am" , or 
"nonequilibrixim")  identifying  the  type  of  solution  being 
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computed,  based  upon  the  entry-point  argument  IS0LN.  In 
the  case  of  a nonequilibrium  solution,  the  number  of  inte- 
gration stups  since  the  last  output  of  flow  variables 
(NSTEPS)  and  the  value  of  the  indicator  INEQ  are  also 
printed  in  this  divider  line.  Note  that  NSTEPS  is  init- 
ialized in  0UT1  t'j  the  seven-digit  value  1000000,  so  that 
when  printed  (with  an  16  format)  in  the  frozen  and  equi- 
librium solutions,  it  gives  a row  of  six  asterisks. 

Following  the  divider  line,  the  first  fifteen  elements 
of  FV0UT(I)  are  printed  by  a single  WRITE  statement.  The 
array  VARNAM(I)  appearing  in  this  statement  contains  the 
Hollerith  labels  for  the  output  variables.  Then,  if  ISW3B 
is  nonzero,  the  boundary  layer  data  in  FV0UT(16)  to  FV0UT(25) 
or  FV0UT(35)  are  printed.  For  channel  cases  without  the 
boundary  layer,  the  channel  widths  CHDIMS(I)  are  printed  on 
a separate  line.  If  LIM0UT  is  nonzero,  the  boundary  layer 
parameters  stored  in  FV02(I,J)  are  printed  on  a separate 
line.  For  nonequilibrium  solutions  based  on  an  electronic 
nonequi librium  model,  t’ae  electron  temperature,  the  radia- 
tive and  electronic  energy  transfer  terms,  and  the  total 
enthalpy  are  loaded  into  TN0UT(I)  and  printed. 

Next,  if  ISW6B  is  nonzero  and  IS0LN  is  not  equal  to  1, 
and  if  16  is  equal  to  IS6,  the  spec.ios  mole  fractions  are 
printed.  The  test  on  16  provides  output  of  these  species 
data  every  136^^  time  0UT2  is  called  in  the  equilibrium  and 
nonequi librium  solutions,  where  IS6  = I ISW6b| . Finally,  if 
ISW6B  is  negative  and  IS0LN  = 3 (nonequilibrium  solution) 
and  if  16  = 136,  a table  ot  reaction  rate  data  is  printed 
out.  This  table  includes  P^»  and  Pj^  for  all  of  the 
reactions  (i  = 1 to  r) , and  d ih  >^/dx  for  all  the  species 
( j = 1 to  n) . 

If  DATAPE  is  .TRUE,,  a record  is  written  on  tape  8 for 
subsequent  use  by  tie  NATA  plot  program, 

3,38  Subroutine  PERT 

The  function  of  subroutine  PERT  is  to  compute  the  per- 
turbations in  the  flow  variables  by  solving  the  following 
system  of  n+2  linear  equations: 
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Equation  Index 


Equation 


1 to  c 

1(368) 

for  j = 

c+1  to  n 

1(362) 

for  j = 

n+1 

1(374) 

n+2 

1(380) 

The  unknowns  are  PERTGJ(J)  = ^y.  for  j = 1 to  n,  PCT  = ST/Tq 
and  PRH0  = in  the  order^  listed.  The  simultaneous 

solution  is  obtained  by  calling  subroutine  DSMS0L. 

The  coefficients  and  constants  for  the  above  system  of 
equations  are  set  up  in  the  common  array  AA.  First,  the 
region  of  AA  which  is  to  be  used  is  zeroed.  Then,  in  the 
D0  loops  ending  at  statement  20,  the  coefficients  for  equa- 
tions 1(368)  are  set  into  AA{I,J)  for  I = 1 to  ISC.  The 
coding  down  to  the  statement  following  110  then  loads  the 
coefficients  of  equations  1(362)  into  AA(I,J)  for  I = ISC  + 1 
to  ISS,  and  loads  the  coefficients  for  equation  1(374)  into 
AA(ISSP1, J) . In  the  calculation  of  the  coefficients  for 
1(362),  the  Fortran  index  I corresponds  to  j in  1(362),  J 
corresponds  to  k and  K corresponds  to  i.  The  coding  from 
D0  120  down  to  the  second  statement  below  130  sets  ip  the 
coefficients  for  equation  1(380)  in  AA(ISSP2,I).  Finally, 
the  loop  D0  140  loads  the  constant  terms  of  equation  1(362) 
into  AA(I,ISSP3)  for  I = ISCPl  to  iSS.  The  remaining  equa- 
tions are  all  homogeneous,  so  that  their  constant  terms  have 
been  set  by  the  initial  zeroing  of  the  AA  array. 

After  DSMS0L  has  been  called,  the  values  obtained  for 
the  perturbations  are  retrxeved  from  the  column  AA(I,ISSP3). 
Then  the  <5  X.  values,  denoted  by  SDCHI(I),  are  calculated 
from  equation  1(360). 


3.39  Function  PI0MEG 

This  routine  provides  the  Maxwell-averaged  momentum 
transfer  cross  section  for  collisions  of  electrons  with 
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neutral  species  as  a function  of  the  electron  temperature, 
TE.  The  cross  section  is  calculated  by  linear  interpolation 
in  a table  stored  in  common  block  /TNEQ/, 

3,40.  Subroutine  PR0P 


The  function  of  this  routine  is  to  compute  the  flow 
conditions  at  a specified  temperature  in  the  frozen  flow 
solution.  Since  PR0P  makes  use  of  species  thermal  proper- 
ties, a call  to  PR0P  must  always  be  preceded  by  a call  to 
THERM, 

‘ The  technique  used  by  PR0P  has  been  discussed  in  Sec- 
tion 6.4  of  Volume  I.  The  coding  is  straightfrrward.  As 
noted  in  Section  3.22.1,  the  flow  variab.les  are  computed  in 
nondimensional  form.  In  particular,  equation  1(267)  for  the 
pressure  is  written  in  the  form 

ZP  = Po  . t Xjo  ^ i ^ 

(123) 

The  first  sum  on  the  right  is  evaluated  in  PR0P  as 


^ =”0  S 


= CMA  • S4 


(124) 


The  remaining  three  terms  on  the  right  in  (123)  are  computed 
as  Wq  • ENT,  where  ENT  has  been  calculated  in  PR0ZEQ  before 
PR0P  is  first  called; 


ENT  = - 


12  T'jo  ”o’ 

j=l 


(125) 


3.41  Subroutine  PRTA 

This  subroutine  controls  the  output  of  the  flow  condi- 
tions and  executes  the  calls  to  the  M0DEL  routine  during 
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I the  nonequilibrium  solution.  It  also  calls  subroutine  BLCALL 

with  the  argvuiEnt  FINAL  = .TRUE,,  to  update  the  derivative 
of  the  boundary  layer  displacement  thickness  and  provide  per- 
manent increments  to  the  Cohen-Re shotko  boundary  layer  inte- 
gral. PRTA  calls  BKIALL  even  if  the  boundary  layer  is  being 
neglected  in  the  flow  solution  (ISW3B  = 0) , because  the  out- 
put and  model  routines  need  the  species  mole  fractions, 
which  are  computed  and  loaded  into  common  block  /TEMPRY/  by 
BLCT^LL.  For  ISW3B  = 0,  the  call  to  the  boundary  layer  rou- 
tine BLAYER  is  suppressed  in  BLCALL. 

The  step  aze  in  the  nonequilibrium  integration  is  often 
quite  small,  especially  in  the  region  upstream  of  the  throat, 
where  some  of  the  reactions  may  still  be  nearly  in  equili- 
brium. To  avoid  the  excessive  output  which  would  result  if 
the  flow  conditions  were  printed  out  for  every  step  in  such 
regions  of  small  step  size,  NATA  prints  the  results  of  the 
nonequilibrium  solution  at  intervals  of  TPRINT  in  the  non- 
dimensional  temperature  CT.  The  control  parameter  TPRINT 
is  preset  to  0.01,  and  is  under  input  control  (with  the  in- 
put name  TPRNTl) . A counter  (NSTEPS)  is  used  to  determine 
the  number  of  steps  computed  between  successive  printouts 
I of  the  flow  conditions.  This  information  is  included  in  the 

printed  output. 

If  the  flow  solution  is  being  generated  by  the  perturba- 
tion technique  (INEQ  = 0) , the  temperature  perturbation  PCT 
is  added  to  CT  before  subroutine  0UT2  is  called  to  produce 
the  output.  Then  PCT  is  subtracted  to  restore  CT  to  its 
equilibrium  flow  value. 

3.42  Subroutine  PUTQIN 

n 

The  computation  of  the  cross  sections  j^j  required 
in  the  transport  property  calculations  for  any  particular 
conditions  of  gas  temperature,  pressure,  and  composition  is 
carried  out  in  the  NATA  code  under  the  general  control  of 
subroutine  PUTQIN,  The  subroutine  selects  data  for  each  step 
of  the  computations  from  the  edited  cross  section  data  in 
common  block /TRANS  7/,  calls  the  appropriate  subroutine  to 
carry  out  the  computations,  and  then  returns  the  computed 
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cross  sections  for  all  species  pairs  to  subroutine  TRANSP 
in  the  Q(K,I,J)  array  of  common  block  /TRANSl/  (see  the 
discussion  of  subroutine  TRANSP).  The  argument  X of  sub- 
routine PUTQIN  is  the  partial  pressure  of  electrons  in  the 
specified  gas  mixture,  in  atmospheres,  a quantity  which  is 
needed  in  the  computation  of  effective  Coulomb  cross  sec- 
tions from  equations  1(100). 

Before  beginning  the  cross  section  computations,  sub- 
routine PUTQIN  initializes  Q(K,I,J)  to  zero  for  all  pairs 
of  species  included  in  the  cross  section  computations.*  If 
the  first  entry  in  theV  array  is  positive,  as  it  ehould  al- 
ways be  for  proper  operation  of  the  code,  Q( 1,2,1)  is  set 
to  0.8  Qc  where  Q^,  is  the  quantity  defined  by  equation 
I (100b),  for  later  use  in  the  computation  of  effective  Coul- 
oitib  cross  sections  for  the  mixture.  The  remainder  of  the 
subroutine  down  to  statement  240  then  consists  of  a loop 
which  goes  through  the  steps  L of  the  cross  section  compu- 
tation one  by  one  and  accumulates  the  values  of  the  cros' 
sections  for  all  species  included  in  the  computations  in 
the  array  Q(K,I,J).  In  this  computation,  the  index  K = KQ(L) 
indicates  the  option  to  be  used  in  performing  the  Lth  step  of 
the  computations  (see  Section  4.6  of  Volume  II) , M is  the 
location  of  the  first  parameter  for  the  Lth  step  of  the  com- 
putations in  the  parameter  array  V,  and  LQl  and  LQ2  are  the 
locations  respectively  of  the  first  and  last  pairs  in  the 
IQ,  JQ  array  to  which  the  computations  of  the  Lth  step  are 
to  be  applied.  For  each  step  L of  the  computations,  subrou- 
tine PUTQIN  determines  the  option  which  is  to  be  used  for 
that  step  from  the  KQ  array  and  then  calls  the  appropriate 
subroutine  to  carry  out  the  computations  for  that  option, 
as  indicated  in  Table  II.  For  the  Coulomb  cross  sections 
(KQ  = 2)  however,  these  computations  are  carried  out  in  sub- 
routine PUTQIN  itself  using  the  previously  computed  value 
0.8Qc. 


*Note  that  the  number  N of  species  in  the  cross  section  com- 
putations, which  is  stored  in  common  block  /TRANS8/,  is  not 
necessarily  the  same  as  the  number  of  species  in  the  trans- 
port calculations  which  is  stored  in  canmon  block  /TRANS5/, 
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TABLE  II 


SUBROUTINES  USED  IN  CROSS  SECTION  COMPUTATIONS 


Option 

KKQ 

Subroutine 

Used 

Type 

2 

PUTQIN 

1 

3 

QEXP 

1 

4 

QEX 

3 

5 

QTAE 

1 

6 

QREPP 

1 

8 

QLJ 

1 

9 

QSAME 

1 

10 

QMIX 

11 

Qll 

2 

12 

Q12 

1 

13 

Q13 

2 

14 

Q14 

2 

As  indicated  in  Table  II,  the  subroutines  called  by  PUTQIN 
may  be  divided  into  three  general  types,  based  on  the  manner 
in  which  they  return  their  output.  The  first  and  most  com- 
monly used_type,  1,  returns  the  three  cross  section  values 
XI  n '^'^'and  computed  for  the  step  to 

subroutine  PUTQIN  in  the  three  locations  0M(1),  j3M(2) , and 
0M(3)  respectively  of  the  dimensioned  variable  0M.  The  loop 
from  statement  190  through  200  of  PUTQIN  then  adds  these 
computed  values  to  the  previously  computed  cross  sections 
Q(K,IQ,J0),  for  each  pair  of  species  in  the  IQ,JQ  array  to 
which  the  step  applies..  For  the  type  2 subroutines,  on  the 
other  hand,  the  cross  section j are  loaded  directly  into  the 
Q array  by  the  s’ubroutine  which  calculates  tliera,  and  statements 
190  through  200  in  PUTQIN  are  bypassed.  The  reason  for  this 
difference  is  that  for  the  type  2 subroutines  the  computed 
values  of  the  cross  sections  for  a species  depend  on  the 
indices  of  the  species,  so  that  a single  set  of  cross  sec- 
tion values  cannot  be  returned  for  all  pairs  of  species  to 
which  the  step  applies. 


The  single  type  3 svibroutine  in  the  code,  QEX  (charge 
exchcinge  cross  section) , returns  the  computed  cross  section 
values  for  the  step  in  the  variable  0M  as  do  the  type  1 sub- 
routines. However,  in  this  case,  the  coding  of  subroutine 
PUTQIN  offers  a choice,  determined  by  the  input  values  of 
V for  the  option,  . s to  whether  the  computed  cross  sections 
for  the  step  will  be  added  to  the  previous  cross  sections 
by  transferring  control  to  statement  190,  as  for  a regular 
type  1 subi^utine,  or  will^be  used  to  replace  the  previous 
values  of  XI and  B*  by  transferring  control  to 

statement  170  and  bi’passing  190, 

The  final  section  of  coding  between  statements  210  and  240 
of  PUTQIN  produces  a voluminous  dump  of  cross  section  data 
under  control  of  the  input  parameter  ISW8B.  For  ISN8B  < 0, 
this  dump  is  not  produced.  For  ISW8B  > 0,  the  dunp  is  pro- 
duced the  first  time  PUTQIN  is  called  and  every  ISWSBth  time 
thereafter.  Note  that  PUTQIN  is  called  once  each  time  sub- 
routine TRANSP  is  executed  to  compute  transport  properties. 

For  each  step  in  the  cross  section  calculations,  the  dump 
includes  a line  of  output  giving  the  number  of  the  step;  the 
code  number  KKQ  of  the  cross  section  option  used  in  the  step’; 
the  positions  in  the  JQ  arrays  of  the  first  (LQl)  and 
the  last  (NQ(L))  pairs  of  species  for  which  cross  sections 
are  calculated  in  the  step;  and  the  position  M of  the  first 
unused  parameter  in  the  V array.  Below  this  line  of  index- 
ing information,  the  calculated  values  of  the  averaged  cross 
sections  ^ ' * for  all  pairs  of  species  in  the  mixture  are 
printed  out^is  uhey  exist  at  the  conclusion  cf  the  step.  To- 
gether with  the  initial  edit  of  the  cross  section  calculations 
(Section  3.9  of  Volume  II),  this  PUTQIN  dump  allows  detailed 
checking  of  the  operation  of  the  cross  section  calculations 
for  a new  gas  model,  since  the  effect  of  each  step  in  the  cal- 
culations upon  each  pair  cross  section  is  clearly 

sho\\m.  The  routine  could  easily  be  modified  to  print  II 


and  B* . XI 

13  X3 


in  addition. 


3.43  Subroutine  QC^-  • 

Subroutine  QC/^UL  computes  the  factor  0.8Q^  in  the 
Coulomb  cross  section  from  equation  I (100b).  Inputs  for 
this  ccmiputation  are  the  temperature  T in  °K  and  the 
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electron  pressure  X = n0kT  in  atmospheres.  The  confuted 
value  of  0.8Qc  in  10”^®  cm^  is  returned  in  0M1.  For 
C < 0,  ^n  ( f A .)  in  I(lOOb)  is  set  to  1.0  while  for  C > 0 
it  is  calculated  correctly  frcaa  I (100c)  and  I(lOOd).  To 
prevent  overflow  when  n^  = 0,  a small  quantity  (-10“50t4) 
is  added  to  X before  carrying  out  the  ccxaputadLons. 


3.44  Svibroutine  QEX 


— /.Subroutine  QEX  computes  the  averaged  cross  sections 
”»1)  and  B*  ri  in  10“^®cm^  for  a pair  of  species 

between  which  there  is  an  exchange  interaction  (i.e«,  an 
interaction  such  as  charge  exchange  in  which  the  identities 
of  the  two  species  are  interchanged)  having  a cross  section 
of  the  form 


Qex  = (A-B  log.^v)  , 


(126) 


where  v is  the  relative  velocity _in  cm/ sec.  The  formula 
for  the  averaged  cross  sections  is  then  (ref.  9); 


=2lA-of  B-%B  <fn(T/W)3^  +2  fi 


(127a) 


(4k/Ho>  + S (i)  -•>  ]Xogioe 

n=l 


= f 


t 2 

- IZ  3 Uogio®) 

n=l  “ 


(127b) 


'V  = 0.577216  ...  is  Euler's  constant,  and  W is  the  molecu- 
lar weight.  Putting  the  nvimerical  values  into  equations 
(127)  and  1(91)  then  gives  the  formulas  used  for  I). 
and  in  the  subroutine.  Since  the  cross  section 

ii  (2,2)  is  not  affected  by  exchange  (ref.  10),  subroutine 
QEX  sets  the  contribution  0M(2)  to  this  cross  section  equal 
to  zero. 
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3.45  Siibroutine  QEXP 

Sxibroutine  QEXP_  confutes  the  averaged  collision  cross 
sections  in  10“^®  cm^ 

for  a pair  of  species  interacting  according  to the  es^onen- 
tial  potential  <t>  - Ae“*^//®  , where  r is  the  distance  between 
the  two  species  in  S.  These  cross  sections  are  obtained  by 
linear  interpolation  in  Monchick*  s tables  (ref.  11)  of 
versus  , A*,  and  B*,  where 

of  = JPn  (aAT) 

1(1  1)  = (4TT  (128) 

2Uid  ^ . 

A*  = n(2,2)  y £^(1,1)^ 

which  are  stored  in  common  block /DRANSy.  The  table  lookup 
and  interpolation  are  carried  out  by  a call  to  subroutine 
QINTRP,  The  coding  assumes  that  there  are  50  entries  in 
these  tables. 


3.46  Sijbroutine  OINTRP 

Subroutine  QINTRP  is  used  by  several  of  the  other  cross 
section  svb  routines  for  interpolating  tabular  data  stored 
in  common  blockA^RANSV.  In  this  interpolation,  the  indepen- 
dent variable  is  assumed  to  be  stored  in  raonotonically  in- 
creasing order  in  the  array  TL,  starting  at  location  Nl,  and 
the  corresponding  values  of  the  three  dependent  variables  in 
the  corresponding  locations  of  the  0I4EGA1,  ASTAR  and  BSTAR 
arrays.  The  argument  N of  the  sxibroutine  represents  the 
nximber  of  data  points  to  be  included  in  the  table,  and  A 
and  B are  respectively  the  values  of  the  independent  and 
dependent  variables  for  the  interpolation.  The  sxdaroutine 
searches  the  data  in  the  TL  array  for  the  specified  value 
A of  the  independent  variable  and,  if  A is  found  to  lie 
within  the  range  of  the  table,  carries  out  a linear  inter- 
polation of  the  tabular  data  to  determine  the  values  B(J) 
of  the  three  dependent  variables  corresponding  to  the  spec- 
ified value  A of  the  independent  variable.  If,  on  the  other 
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hand,  A lies  outside  the  range  of  the  table,  the  last  two 
data  points  in  the  table  arc  linearly  extrapolated  to  det- 
ermine the  values  of  the  dependent  variable  B and,  if 
ISW8B  ji^  0,  a message  is  printed  out  indicating  that  an 
extrapolation  of  the  data  was  required.  This  message  gives 
the  location  in  v.he  TL  array  at  which  the  extrapolation 
occurred,  the  desired  value, A of  the  independent  variable, 
and  the  two  values  of  the  variable  from  the  TL  array  used 
in  the  extrapolation. 

3,47  Subroutine  QU 


_ Subroutine  OLT  determnes  the  collision  cross  sections 

g*  <^{1, 1)  temperature  T for  a pair 
of  species  interacting  according  to  the  Lennard— Jones  6-12 
potential  <f>  =46  L(  C /r)  - ( O’  /r)^3_  by  lineai^  inter- 

polati^on  in  tables  of  T*  = TcT/ 6 versus  vl  , 

A*  = 0.^2, 2)/  ^ (1,1)^  B*  vhich  have  been  computed  for  this 
potential  by  Monchicdc  and  Mason  (ref.  12) . These  tables  con- 
tain data  for  37  reduced  tenperatures  T*  from  0.1  to  100  and 
are  stored  in  the  arrays  TL,  (»IEGAl,  ASTAR,  and  BSTAR  respec- 
tively in  common  block /TRANS4/, starting  at  location  N1  = 501 
in  the  arrays. 


3.48  Subroutine  QMIX 

Subroutine  QMIX  ccanputes  cross  sections  frcwi  the  empir- 
ical mixing  rule  1(102)  and  adds  them  to  the  previously 
cOTjputed  cross  sections  Q(K,I,J)  for  a series  of  species 
pairs  given  in  the  IQ,  JQ  arrays  in  common  block/TRANS7/. 

The  arguments  LQl  and  1^2  of  the  subroutine  indicate  the 
positions  of  the  first  and  last  pairs  in  the  IQ,  JQ  array 
to  which  these  compatations  are  to  be  applied. 

To  avoid  computing  the  square  roots  required  in  equa- 
tion 1(102)  several  times  in  a single  call  to  QMIX,  these 
quantities  are  stored  in  the  array 


SQT  (K,  I)  = is  / q(K,  X,I) 


(129) 
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Upon  each  entrance  to  the  subroutine,  the  values  of  SQT(1,I) 
are  set  to  0.0  for  all  species  I,  to  indicate  that  they  have 
not  yet  been  calculated  in  the  current  call  to  QMIX.  (Note 
that  values  of  SQT  cannot  be  saved  over  from  one  call  to 
QMIX  to  the  next,  sinqe  the  values  of  the  cross  sections 
Q(K, 1,1)  may  have  changed  between  the  two  calls.)  The 
remainder  of  the  subroutine  then  consists  of  a loop  over 
the  species  pairs  I,  J which  are  to  be  included  in  the  com- 
putation. For  each  pair,  the  subroutine  checks  the  values 
of  SQT(1,I)  and  SQT(1,J)  to  determine  if  they  have  been  cal- 
culated previously  in  the  loop,  and,  if  not,  computes  the 
required  values  of  SQT  from  (129)  for  K = 1,  2,  and  3.  The 
SQT  values  for  the  pair  are  then  used  in  equation  1(102)  and 
the  results  added  to  the  previously  computed  cross  sections 
Q(K,I,J)  to  obtain  the' final  cross  section  values  for  the 
pair. 


Since  the  edited  cross  section  data  prepared  by  sub- 
routine XSECT  may  contain  steps  using  the  option  KQ  = 10 
which  do  not  apply  to  any  species  pairs,  a provision  to 
bypass  the  cross  section  computations  ctxnpletely  when 
IQl  > Wi2  is  included  in  the  subroutine  QMIX  to  allow  for 
this  possibility 


3.49  Subroutine  QREPP 

__  Subroutine  QREPP  computes  the  averaged  cross  sections 
fl  ri^2,2)^  and  B*  il  (1/1)  in  \inits  of  10”^^  cm^  for 

a pair  of  species  which  interact  according  to  an  attractive  or 
repulsive  inverse  power  potential  of  the  form  ^ = Ar”  ^ , 
where  r is  the  distance  between  the  species  in  X.  The  cross 
section  formulas  for  this  potential  are  (ref.  13) : 

fi  = 0MEGAKITL)  / (T^/^  ) 

fl  = ASTAR(ITL)  * (130) 

B*  il  = BSTAR(xTL)  * 

Where  0MEGA1(ttl) , ASTAR(ITL) , and  BSTAR(ITL)  are  input 
quantities  gi  an  by  equations  1(105). 
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3,50  Subroutine  QSAME 


Subroutine  QSAME  sets  the  cross  sections  for  a species 
pair  equal  to  a constant  multiple  of  those  computed  previously 
for  another  pair  (I, J) . The  coding  of  the  subroutine  permits 
a different  constant  factor  to  be  used  for  each  of  the  three 
cross  sections  and 

3.51  Subroutine  QTAB 

__  Subroutine  QTAB  obtains  the  values  of  the  cross  sections 

and  B*  ri  for  a pair  of  species  at 

a given  temperature  T by  linear  interpolation  in  tables  of 
(Q  (1,1),  ^(2,2)  and  B*  versus  temperature  for  the  species 
which  are  included  in  the  input.  The  tabulated  data  are 
assumed  to  be  given  in  the  arrays  0MEGA1,  ASTAR,  BSTAR,  and 
TL,  respectively,  in  common  block /TRANS4/, with  the  tables 
beginning  at  location  Nl  in  the  arrays  and  containing  NL 
data  points.  An  option  is  also  pro'^^ided  to  multiply  the 
tabluated  cross  sections  by  an  aibirrary  constant  factor  A 
in  the  computations. 


3.52  Subroutine  Qll 

Subroutine  Qll  multiplies  the  previously  computed  cross 
sections  for  a series  of  species  pairs  by  the  temperature 
dependent  factor  f(T)  given  by  equation  1(108).  The  sub- 
routine computes  the  value  of  this  factor  at  the  specified 
temperature  T from  the  input  data  for  the  subroutine  and 
then  calls  subroutine  Q14  with  the  appropriate  inputs  to 
carry  out  the  actual  multiplication  of  the  cross  sections 
by  this  factor. 

3.53  Subroutine  Ql2 

Subroutine  Q^2  computes  the  cross  sections 
(2,2),  and  B*  li  for  a species  pair  from  the 

generalized  mixing  rule  given  by  equation  1(109).  As  with 
the  other  type  1 subroutines  discussed  above,  it  returns 
the  computed  cross  sections  to  subroutine  PUTQIN  in  the 
dimensioned  variable  0M. 
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3.54 


Subrout iue  Ql3 


Subroutine  Q13  computes  the  cross  sections  Q(KL,I,J) 
according  to  equations  1(110)  and  1(111)  for  a fixed  value 
of  K1  specified  in  the  cross  section  data  (1  ^ Kl  ^3) 
and  for  a series  of  species  pairs  I,J  given  in  positions 
LQl  through  LQ2  of  the  IQ,  JQ  arrays.  The  computed  cross 
sections  then  replace  the  previous  values  for  these  cross 
sections  in  the  Q(K,I,J)  array. 

3.55  Subroutine  Q14 

_ Subroutine  Q14  computes  the  cross  sections  11(1*1), 

O and  B*  n (1*1)  for  a series  of  species  pairs  by 

multiplying  the  previously  computed  values  of  these  cross 
sections  by  a constant  factor,  as  indicated  in  equation 
J(112).  The  computed  cross  sections  then  replace  the  previous 
values  for  these  cross  sections  in  the  Q(K, I,J)  array. 

3.56  Subroutine  RADIUS 

This  small  routine  performs  geometric  calculations  that, 
are  required  at  several  points  in  the  computation  of  the 
boundary  layer  at  the  first  flow  point  in  subroutine  BLAYER. 

The  inputs  to  RADIUS  are  the  type  of  nozzle  geometry  ITYPE, 
the  axial  coordinate  X,  and  the  profile  index  L.  The  quantities 
computed  and  returned  to  BLAYER  are  the  profile  ordinate  R, 
the  geometric  area  ratio  AG,  and  the  factor  AGJ,  which  is 
proportional  to  r^j  in  equation  1(171). 

For  ITYPE  = 1 (two-dimensional  nozzle) , R is  obtained  by 
calling  the  entry  GMAR  of  subroutine  GE0MAR.  Then  AG  = R/RO 
where  RO  is  the  half-width  of  the  throat  gap,  and  AGJ  = 1 
since  j = 0. 


For  ITYPE  = 2 (axisymmetric  nozzle) , R is  again  obtained 
by  calling  GMAR,  AG  = (R/RO) 2,  where  RO  here  is  the  throat 
radius,  and  AGJ  = AG  since  j = 1. 

For  ITYPE  = 3 (rectangular  channel) , the  ordinates 
YZ(1)^  YZ'2)  of  the  two  profiles  are  obtained  by  calling 
the  entry  GMAR2  of  subroutine  GE0MAR,  AG  = YZ(1)*  YZ(2)/ 

YOZO  where  YOZO  is  the  product  of  the  profile  ordinates  at 
the  throat,  R = YZ(L),  and  AGJ  = Lyz(M)32,  where  M = 2 if 
L = 1 and  M = 1 if  L = 2. 
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3.57 


Subroutine  READ 


READ  is  the  input  routine  for  NATA.  It  reads  the  input 
data,  sets  up  the  geometric  description  and  gas  model  for 
the  problem,  and  initializes  most  of  the  control  parameters. 

3.57.1  Input  Operations 

The  subroutine  begins  by  reading  the  input  data  for 
the  current  case.  The  routine  contains  four  READ  statements, 
of  which  the  first  two  are  always  executed.  The  first  of 
these  statements  reads  a comment  card  into  the  array  AC0M. 
This  infonnation  is  subsequently  written  out  as  part  of  a 
heading  for  the  output  for  the  case.  The  second  READ  state- 
ment reads  data  for  the  variables  included  in  namelist 
INPUT.  This  is  the  main  input  operation  for  the  code. 
Namelist  INPUT  contains  all  of  the  inputs  to  NATA  except 
those  required  for  defining  chemical  elements,  species,  and 
reactions  (read  under  namelist  EINPUT) , and  those  required 
for  calculating  the  transport  cross  sections  of  species 
(read  under  namelist  TINPUT) . When  the  code  is  run  using 
the  chemical  and  cross  section  data  compiled  into  the 
BL0CK  DATA  routines,  as  it  is  normally,  the  statements 
READ (5,  EINPUT)  and  READ (5,  TINPUT)  are  not  executed. 

All  of  the  variables  ?n  INPUT  are  printed  out  at  the 
head  of  che  output  for  the  case  by  the  statement  WRITE 
(6, INPUT).  If  EINPUT  and  TINPUT  are  read,  their  variables 
are  also  printed  out  in  namelist  format.  The  reason  for 
breaking  the  code  inputs  into  these  three  groups  is  to 
minimize  the  number  of  pages  of  such  output  in  normal  usage, 
when  EINPUT  and  TINPUT  are  not  used. 

3.57,2  Sonic  Mass  Flux  Calculation 

If  ISW2B  < 0,  NATA  determines  the  equilibrium  conditions 
in  the  reservoir  from  data  on  the  reservoir  pressure  or 
stagnation  enthalpy  and  the  total  mass  flow.  In  these  cases, 
the  sonic  mass  flux  SMASS  is  required  in  the  calculations 
to  determine  the  reservoir  temperature.  This  quantity  is 
compii  ed  in  READ  from  the  total  mass  flow  A (denoted  by 
FL0W)  and  the  geometric  dimensions  of  the  throat.  The 
coding  treats  three  cases: 
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(1) 


Two-dimensional  nozzle 


Here  M and  FL0W  denote  the  mass  flow  per  unit 
length  of  the  throat  gap.  Hence 

SMASS  = (131) 

D 


where  D is  the  throat  gap.  Since  SMASS  is  required 
in  gm/cm^-sec  while  M is  in  Ib/in-sec  and  D in- 
inches,  a numerical  conversion  factor  from  Ib/in^- 
sec  to  gm/cm^-sec  is  inserted  on  the  right. 

This  factor  is  453.5924/(2.54)2  = 70.3069. 


(2)  Axisymmetric  nozzle 

In  this  case,  M is  the  total  mass  flow  in  Ib/sec, 
and 

4M 

SMASS  = 5-  (132) 

TTD"^ 


Insertion  of  the  conversion  factor  (70.3069) 
gives  a numerical  coefficient  of  4 x 70.3069/F  = 
89.5173. 

(3)  Rectangular  channel 

The  sonic  mass  flux  here  is 

SMASS  = — (133) 


where  and  are  the  throat  gaps  of  the  channel's 
two  profiles. 

3.57.3  Automatic  Air  Model  Selection 


If  the  input  AAMS  (acronym  for  "automatic  air  model 
selection")  is  .TRUE^  and  IGAS  is  either  1 or  2,  subroutine 
READ  resets  IGAS  to  either  1 or  2 on  the  basis  of  an  enthalpy 
or  temperature  criterion.  IGAS  = 1 gives  the  large  air 
model,  including  five  ion  species,  which  is  required  in  cases 
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with  high  reservoir  temperatures.  IGAS  = 2 gives  the  small 
air  model  which  includes  only  a single  ion  (NO'*')  and  which 
can  be  used  at,  lower  temperatures.  If  the  reservoir  temperature 
is  read  in  (ISW2B  > 0) , the  air  model  is  selected  to  be 
IGAS  = 1 or  2 according  as  the  reservoir  temperature  CTAPI 
is  greater  than  or  less  than  6000°K.  On  the  other  hand, 
if  the  reservoir  temperature  is  to  be  determined  from  mass 
flow  data  (ISW2B  < 0) , then  its  value  is  not  yet  known  at 
the  time  when  READ  is  executed.  In  this  case,  the  air  model 
selection  is  based  on  a stagnation  enthalpy  criterion  of 
8000  Btu/lb.  For  ISW2B  < 0,  the  stagnation  enthalpy  is  an 
input.  For  ISW2B  = 0,  the  inputs  are  stagnation  pressure  and 
mass  flow;  in  this  case,  the  stagnation  enthalpy  is  estimated 
from  the  Winovich  correlation  (ref.  14) . The  Winovich 
estimate  of  the  stagnation  enthalpy  is  computed  from  the 
formula 


HWIN0V 


"136.7  po 
- m* 


2.52 


(134) 


where  p_  denotes  the  reservoir  pressure  in  atmospheres 
and  m*  the  sonic  mass  flux  in  g/cm^  sec.  The  numerical 
factor  on  the  right  in  (134)  differs  from  the  coefficient 
(280)  in  Winovich 's  equation  because  it  includes  a factor 
converting  m*  from  g/cm'^-sec  to  Ib/ft^-sec. 

3.57.4  Initializations  Based  on  Inputs 

With  few  exceptions,  the  input  variables  of  NATA  are 
not  altered  by  execution  of  the  program.  Also,  the  Namelist 
input  system  resets  only  those  variables  which  are  actually 
referenced  in  the  input  cards  for  a given  case.  Thus,  when 
several  cases  are  run  in  a single  job,  the  input  cards 
for  the  second  and  subsequent  cases  need  contain  data  only 
for  the  variables  which  the  user  wishes  to  change,  e.g., 
the  pressure,  mass  flow,  nozzle  index,  etc. 

The  input-determined  variables  which  are  not  altered 
by  program  execution  are  included  directly  in  the  namelists 
INPUT,  EINPUT,  and  TINPUT.  However,  some  input-determined 
variables  are  altered  by  the  program.  In  such  cases,  the 
variable  which  is  altered  and  its  corresponding  input  are 
given  different  names  and  thus  are  stored  in  separate 
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locations.  The  input  name  is  the  internal  variable  name 
(or  a contraction  thereof)  with  the  letter  I added  at  the 
end.  At  the  cost  of  some  increase  in  storage  requirements, 
this  arrangement  protects  the  input  variables  against  alteration 
during  execution. 

3.57.5  List  of  Test  Sections 

The  data  in  the  input  array  TSDIAM  specify  points  in 
the  flow  at  which  special  calculations  are  to  be  done.  In 
the  case  of  a two-dimensional  or  axisymmetric  nozzle,  the 
entries  in  TSDIAM  are  nozzle  diameters  at  which  model-condition 
calculations  are  to  be  perfcrmed.  For  a channel,  the  TSDIAM 
entries  are  specified  channel  widths  at  which  free-stream 
flow  and  boundary  layer  calculations  are  to  be  performed. 

Subroutine  READ  uses  the  data  in  the  TSDIAM  array  to 
set  up  another  array,  TSAR,  whose  values  are  actually  used 
by  the  program  to  select  the  points  at  which  the  special 
calculations  are  done.  For  a nozzle,  the  TSAR  entries  are 
geometric  area  ratio  values.  For  a channel,  the  TSAR  are 
widths  in  centimeters.  In  generating  the  TSAR  array,  READ  • 
rejects  any  TSDIAM  values  which  are  less  than  or  equal  to 
the  throat  diameter  for  the  profile  involved,  and  determines 
the  number  (NTS)  of  valid  TSAR  entries.  All  the  entries  of 
TSDIAM  are  preset  (in  BL0CK  DATA)  to  the  value  1 x 10^*^. 

Thus,  any  values  in  excess  of  1 x 10^*^  are  assumed  not  to 
have  been  set  by  the  user  in  input,  and  are  not  regarded 
as  valid  points. 

3.57.6  Geometric  Description 

A nozzle  is  specified  by  one  profile  curvefit,  a channel 
by  two.  For  each  profile,  the  parameters  defining  the 
geometry  of  the  nozzle  or  channel  may  be  either  read  in  as 
part  of  the  input  or,  if  one  of  the  standard  geometries 
is  desired,  obtained  from  precoded  data.  For  the  Jth  profile 
(J  = 1 or  2) , if  NPR0FL(J)  is  nonzero,  the  geometric  data 
are  looked  up  in  the  ZPRP  array,  which  is  set  in  BL0CK  DATA. 

This  array  occupies  the  common  block  /N0ZZ/.  If  NPR0FL(»‘) 
is  zero,  the  geometric  data  are  set  on  the  basis  of  the  geometric 
input  variables  such  as  NSECTS,  DIAM,  andPARAMI. 
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In  either  case,  after  the  geometric  model  has  been  set 
up,  subroutine  READ  prints  out  a summary  description  of  it, 
unless  the  standard  geometry  specified  is  the  same  as  in 
the  preceding  case  in  the  job. 

3.57.7  Extra  Chemical  Elem.ents 

If  additional  chemical  elements  have  been  defined  in 
the  EINPUT  input,  the  data  for  them  are  loaded  into  the  EPRP 
array,  which  contains  the  precoded  data  for  elements.  The 
number  of  input-defined  elements  is  NEELS.  For  the  Ith  such 
element,  the  atomic  number  is  obtained  from  EEPRP(1,I) 
and  the  atomic  weight  from  EEPRP(2,I).  The  index  assigned 
to  the  element  in  the  master  list  of  elements  is  lEEP(I). 

The  Hollerith  atomic  symbol  for  the  element  is  obtained  from 
the  array  ASYM,  which  is  set  in  a data  statement  in  READ. 

3.57.8  Gas  Model 

The  elements,  species,  and  reactions  present  in  the  gas 
mixture  are  specified  by  the  group  of  variables  ISC,  ISS, 

ISR,  IC,  IE (I),  NSC,  QPJ(I),  JCS(I),  IS (I),  and  IR(I) . If  IGAS=0, 
these  variables  are  obtained  from  the  input  data.  If  IGAS 
is  positive,  they  are  looked  up  in  the  array  of  precoded 
data,  GPRP (I,IGAS) , which  occupies  common  block  /MIXT/. 

The  physical  definicions  of  the  entries  in  this  array  are  given 
in  Section  4.5  of  Volume  II.  If  IGAS  is  negative,  the  input 
value  is  saved  in  the  location  IGS,  and  IGAS  is  reset  to 
its  own  absolute  value.  In  this  case,  all  of  the  above- 
listed  variables  except  QPJ(I)  are  again  looked  up  in  GPRP, 
but  the  QPJ  (the  mole  fractions  of  the  cold  species)  are 
obtained  from  input.  This  provision  allows  input  control 
of  the  overall  elemental  composition  of  the  standard  gas 
mixtures  containing  more  than  one  chemical  element. 

After  these  general  specifications  of  the  gas  model  have 
been  determined,  the  required  properties  of  the  chemical 
elements,  species,  and  reactions  are  looked  up.  The  data  for 
elements  are  obtained  from  the  array  EPRP (I, IE),  where 
the  second  subscript  is  the  index  in  the  master  list  of 
elements.  The  species  data  are  looked  up  in  the  array 
SPRP(I,IS),  where  IS  is  the  index  in  the  master  list  of 
species.  The  reaction  data  are  obtained  from  RPRP(I,IR), 
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where  IR  is  the  index  in  the  master  list  of  reactions. 

The  entries  in  these  arrays  are  all  defined  in  Section  4 of 
Volume  II.  The  order  of  the  elements,  species,  and  reactions 
in  a gas  model  is  determined  by  the  index  arrays  IE(I), 

IS (I) , . IR(I) , and  may  differ  from  the  order  in  the  corres- 
ponding master  lists. 

3,57.9  Geometric  Sequence  of  Model  Points 

Positions  at  which  model  condition  calculations  are  to 
be  done  can  be  determined  by  specifying  an  initial  point 
XM0DP1,  a final  point  rXMAXI,  and  a number  of  points  NM0DPT. 
From  these  data,  subroutine  READ  computes  a factor  FACMP 
which  is  used  to  generate  a geometric  sequence  of  NM0DPT 
values  of  x extending  from  XM0DP1  to  CXMAXI.  This  factor 
is  calculated  from  the  formula 


FACMP 


CXMAXI ~ 
.XM0DP1  _ 


1/(NM0DPT-1) 


(135) 
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3.58  Subroutine  RESET 

This  Fortran  routine,  used  only  in  the  IBM  version  of 
NATA,  simulates  the  UNIVAC  1108  timing  routines  RESET  and 
TIME.  The  time  data  are  obtained  by  calling  the  library 
routine  ACUCPU,  which  returns  in  its  argument  ICPU  the  number  of 
milliseconds  of  CPU  time  remaining  before  the  TIME  parameter 
of  the  job  step  is  reached.  Subroutine  RESET  is  called 
by  the  main  program  near  the  beginning  of  each  NATA  job. 

The  initial  value  of  ICPU  is  stored  in  IZER0.  Subsequent 
calls  to  the  entry  TIME  then  give  the  elapsed  time  I 
in  milliseconds. 

3.59  Subroutine  RESTMP 

RESTMP  performs  the  iterative  solution  for  the  reservoir 
conditions  whan  the  second  or  third  option  for  input  speci- 
fication of  these  conditions  is  used.  These  options  have 
been  described  in  Section  6.5  of  Volume  I.  Usage  of  these 
options  is  controlled  by  the  indicator  ISW2B.  For  ISW2B  = 0, 
the  second  option  is  uaed,  and  for  I.''W2B<  0,  the  third 
option.  (For  ISW2B>0,  the  first  option  is  used  and  RESTMP 
is  not  called.) 
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3.59,1  Second  Option 


The  second  option  is  implemented  by  the  codin-j  down  to 
statement  90.  In  this  option-  the  input  specification  of 
the  reservoir  conditions  is  based  on  the  reservoir  pressure, 
Pq,  and  the  total  mass  flow,  M.  In  the  code,  the  value  of 
Pq  in  atmospheres  is  available  in  the  location  PRESA  in 
unlabelled  common,  and  the  sonic  mass  flux  m*  in  g/cm  ser 
is  given  by  SMASS  in  common  block  /MASSFL/. 

The  basic  problem  in  the  second  option  is  to  deterr..ine 
the  reservoir  temperature,  Tq,  from  these  dat: . The  code 
capabilities  available  to  support  this  effort  are 

(1)  Entry  INTA  of .subroutine  INGAS,  waich  computes 
all  of  the  conditions  in  the  reservoir  from  PRESA 
Pq  and  CTAP  = Tq. 

(2)  Subroutine  NRMAX,  which  cc.  putes  the  sonic  mass 
flux  ra*  for  equilibrium  flow,  based  on  given 
reservoir  conditions. 


RESTMP  determines  Tq  by  an  iteration  in  which  INTA  and  NRMAX 
are  called,  at  each  step,  and  Tq  is  repeatedly  adjusted  to 
make  the  calculated  sonic  mass  flux  nearly  equal  to  SMASS. 


RESTMP  starts  the  iteration  v;ith  a standard  guess  Tq  = 
10000*^K.  Subroutines  INTA  and  NRIIAX  are  then  called 
to  compute  the  reservoir  conditions  and  sonic  ma.JS  flux 
based  on  the  trial  value  of  Tq.  The  call  to  INTA  must  be 
preceded  by  ?.  call  to  subroutine  INIT  to  set  a number  of 
species  properties  which  are  nondimensionalized  using  the 
reservoir  temperature. 


The  sonic  mass  flux  computed  by  NPjyiAX  is  in  the  non 
dimensional  form 


SM 


Po'^s 


m* 


(136) 


From  the  perfect  gas 


PO  = 


Po^o^o 

Wo 


law. 


(137) 
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Elimination  of  Pq  between  (136)  and  (137)  gives  the  relation 


■^0  = 


Wq(Tq) 


Pc  • SM(To)y 


(138) 


which  is  satisfied  by  the  correct  value  of  the  reservoir 
temperature  Tq.  In  (138) , Wq  denotes  the  reservoir  molecular 
weight  (CMA) , Rq  the  universal  gas  constant  in  mechanical 
units  (8.3^434  x 10^  erg/mole  °K) , the  reservoir  pressui  ! 
in  dyne/cm  , SM{Tq)  the  nondimensional  sonic  mass  flux 
computed  by  NRMAX,  and  m^  the  sonic  mass  flux  (SMASS,  g / 
cm^sec)  based  on  the  input  total  mass  flow  ft.  Equation  (138) 
may  be  rewritten  , 


T 


0 


Wo(Tq) 

C 


[SM(T^) 


F(Tq) 

c 


(135) 


where  the  parameter  r.  (denoted  by  C0'NS‘r  in  the  program) 
is  a constant  of  the  iteration: 


(140) 


The  secon.1  estimate  of  Tq  is  obtained  using  equation  (139)  , 
with  Wq  and  SM  values  based  on  the  first  trial  value.  The 
quantity  SM  is  found  to  vary  only  weakly  with  T^,  while  the 
molecular  weight  is  monotonically  decreasing  function  of  Tq 
at  constant  pressure.  Thus,  the  error  in  the  second  estimate 
of  Tq  is  opposite  in  sign  to  that  of  the  first  estimate; 
the  two  values  bracket  the  correct  solution.  Accordingly, 
after  INIT,  INTA,  and  NRMAX  have  been  calif;',  .he  third 
estimate  of  Tq  is  obtained  by  a linear  interpolation  technique. 
The  function  F(Tq)  is  approximated  as  a linear  function  between 
Tq  = Tj^  and  Tq  = T2  (the  first  two  estimates)  , Then 


(141) 


Elimination  of 


c 


between  i.l39)  and  (141)  gives 


1 


To 


T2F1  - T^F2 
T2  - Ti 


Fl 


T2  - Tj_ 


- C 


(142) 


for  the  third  estimate. 

Beginning  with  the  fourth  estimate,  the  dependence 
of  F(Tq)  upon  Tq  is  approximated  by  a quadratic  function 
based  upon  the  data  from  the  three  most  recent  iterations: 


F = Di  + D2  Tq  + D3  Tq' 


(143) 


Substitution  of  the  data  from  the  three  points  gives  a system 
of  linear  equations  for  Dj^,  D2,  D3.  This  system  can  be 


written  in  matrix  form 


where 


A = 


D = B 

1. 

1. 
1. 
F, 


(144) 


(145a) 


B = 


D = 


3J 


3J 


(145b) 


This  system  of  equations  is  solved  using  subroutine  SIMQ, 
which  places  the  solution  vector  D into  the  locations 
originally  occupied  by  the  vector  of  constants  B.  Then 
elimination  of  F between  (139)  and  (143)  gives 


To  = C (Dj^  + To  + D3  Tq^) 

The  solution  of  this  quadratic  cqi’.ation  for  To  is 


(146) 
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The  sign  before  the  radical  is  deterrained  by  noting  that, 
for  — ►O,  the  solution  * ust  approacli 


(D3  = 0) 


(148) 


Thus,  the  sign  represented  by  _+  must  be  opposite  to  that  of 
-(D2  - 1/C),i.e.,  the  same  as  that  of  (D2  - 1/C) . 

In  the  program,  the ' temperature  values  Tj^,  T^,  V3 
are  stored  in  the  array  CTSAVE  and  the  parameter  values 
^1»^2'^3  array  F.  If  SIMQ  returns  an  error  indicator 

KS  ^ 0,  which  v/ill  occur  if  the  matrix  (145a)  is  singular, 
RESTMP  reverts  to  the  linear  interpolation  technique. 

The  convergence  criterion  for  the  iteration  is  that  the 
relative  change  in  Tq  between  two  successive  iterative  steps 
be  smaller  than  or  equal  to  10“^. 

3.59.2  Third  Option 

The  coding  of  the  third  option  begins  with  statement  90 
of  RESTMP  and  continues  to  the  end  of  the  subroutine. 

In  this  option,  the  reservoir  conditions  are  specified  by 
input  of  the  total  mass  flow  M and  the  stagnation  enthalpy 
h^.  The  latter  quantity  is  given,  in  calories  per  gram,  by 
the  variable  HS  in  common  /RDMAIN/.  The  third  option  requires 
a double  iteration  to  determine  both  the  reservoir  tempera- 
ture Tq  and  the  reservoir  pressure  p^  from  the  available 
data. 


To  start  the  iteration,  an  initial  estimate  of  the 
reservoir  pressure  is  obtained  from  an  approximate  sonic 
flow  analysis  for  a perfect  gas.  For  a gas  with  constant 
specific  heats. 


L P'  + 1 J 


1/vr-  1) 


(149a) 
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t 


aQ  (149b) 

V(  y-  1)  hQ  (149c) 


These  relations  are  derived,  for  example,  in  Liepnann  and 
Roshko  (ref.  15,  pp.  51-54).  Combination  of  equations 
(149)  and  (137)  gives 


r-1  / +1 . r^+1 1 

O'  V2(V-1)  L 2 J 


i/i-y  -1) 


m^  (150) 


In  RESTMP,  an  initial  estimate  of  p is  obtained  from  equation 
(150)  using  a standard  estimate  of  the  specific  heat  ratio, 
y = 4/3.  This  value  gi^^s 

PO  = 0.743  m*  (151) 

in  which  all  quantities  are  assumed  to  be  expressed  in 
absolute  cgs  units.  With  Pg  in  atmospheres  and  hg  in  cal/ 
gm,  this  relation  becomes 

Pg(atm)  = 4.8  X 10~^  ra*  yj  hg  (cal/g)  (152) 

which  is  the  form  used  in  RESTMP. 


The  iteration  scheme  used  to  solve  for  the  reservoir 
temperature  and  pressure  is  illustrated  schematically  in 
figure  25.  The  starting  point  for  the  iteration  (labelled 
"1")  lies  at  the  pressure  (152)  and  an  initial  estimate  of 
temperature,  10,000°K.  In  the  first  stage  of  the  double 
iteration,  the  temperature  is  varied  at  constant  pressure 
to  make  the  reservoir  enthalpy  equal  to  the  input  value 
HS  (denoted  by  hg  in  the  figure) . The  coding  of  this  stage 
runs  from  statement  110  down  to  (but  not  including)  130. 

At  each  step  of  this  iteration  on  temperature,  INIT  and  INTA 
are  called,  and  the  reservoir  enthalpy  is  computed  from  CIIA 
using  equation  1(241).  In  the  first  step,  the  temperature 
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estimate  is  improved  by  assuming  that  the  enthalpy  is 
approximately  proportional  to  the  temperature: 


T _ T • — 

0 1 hi 


(153) 


where  is  the  initial  estimate  of  Tq  and  h^^  is  the  specific 
enthalpy  corresponding  to  Tj^.  In  subsequent  steps,  the 
relation  between  T and  H is  approximated  by  a linear  relation 
which  does  not  necessarily  pass  through  the  origin: 


Tq  = T + (hg  - h)  (T  - T)/  (h  - h) 


(154) 


This  iteration  on  temperature  is  continued  until  the  calculated 
enthalpy  is  equal  to  the  desired  value  to  within  1 part  in 
10  . The  result  of  this  stage  is  the  point  ”2"  in  figure  25. 

In  the  second  stage,  the  reservoir  pressure  is  varied 
at  constant  reservoir  temperature  to  make  the  sonic  mass 
flux  equal  to  its  desired  value,  SMASS.  This  stage  is 
implemented  by  the  coding  from  statement  130  down  to  (but 
not  including)  150.  In  each  cycle  of  this  stage  of  the 
iteration,  subroutine  NRMAX  is  called  to  compute  the  non- 
dimensional  sonic  mass  flux,  SM.  The  sonic  mass  flux  m 

O w 

in  g/cm  sec  is  calculated  frcati  this  value  using  equation  (136). 
The  estimate  of  the  reservoir  pressure  is  then  improved  on 
the  assumption  that  m^  is  directly  proportional  to  p^, 
and  subroutine  INTA  is  called  to  determine  the  reservoir 
conditions  based  on  the  new  p^  value.  This  stage  is  continued 
until  the  calculated  sonic  mass  flux  agrees  with  the  desired 
value  to  within  1 part  in  10^-  The  resulting  point  is  "3" 
in  figure  25. 


The  complete  iteration  consists  of  alternate  temperature- 
adjusting and  pressure-adjusting  stages,  and  produces  a series 
of  points  "4",  "5",  "6",  etc.,  which  spiral  in  towards  the 
desired  solution  point  in  T - Pq  space  (figure  25) . After 
each  pair  of  stages  (2,3),  (4,5),  etc.,  tests  on  temperature 
and  pressure  are  applied  to  assess  the  convergence  of  the 
entire  procedure.  The  criteria  for  convergence  are  that  the 
relative  change^  in  Tq  and  Pq  during  a stage-pair  be  less  than 
or  equal  to  10 
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If  the  input  control  parameter  ISW  A is  nonzero,  a 
dump  is  written  in  each  cycle  of  this  iteration  to  allow 
tracing  of  the  subroutine's  operation. 

3.60  Subroutine  RNKT 

RNKT  is  the  routine  that  computes  the  changes  in  the 
dependent  flow  variables  over  an  integration  step  using  the 
Treanor-Runge-Kutta  scheme  explained  in  Section  7.5.1  of 
Volume  I.  Figure  26  is  a flowchart  of  RNKT. 

In  the  initializations,  IFAIL  is  an  indicator  for  the 
cause  of  step  failure,  used  in  diagnostic  output  which  is 
produced  when  ISW5B  is  set  to  a negative  value  in  the  input 
(see  glossary  of  Fortran  symbols  for  common  block  /TNERK/ 
in  Section  4)  TE  is  a logical  indicator.  A .TRUE,  value 
means  that  a chemical  nonequilbrium  model  is  in  use.  If 
TE  = .FALSE.,  an  electronic  equilibrium  model  is  being  used. 
LIM  denotes  the  number  of  dependent  variables  included  in 
the  numerical  integration.  For  a chemical  nonequililbrium 
model,  LIM  = n + 1 and  the  variables  are  7'-  for  j = 1 
to  n and  CT  = T/Tq.  Foe  an  electronic  none^il  orium  model,- 
LIM  = n + 3 and  the  variables  are  'Vj,  CT,  CTE  T^/Tq, 
and  CHA  = hQ  Wq/RqTq.  The  energy  transfer  to  Lae  electron 
gas  (QDPE)  at  the  start  of  the  integration  step  is  denoted 
by  QDPEB.  Finally,  DQMRK  is  the  maximum  allowable  change 
in  QDPE  from  QDPEB  during  the  integration  step. 

For  ISW5B  different  from  zero,  diaaju;stic  dumps  are 
produced  at  five  locations  in  RNKT.  The  coding  used  to 
generate  these  dumps  is  omitted  from  the  flowchart,  as  it 
is  not  essential  to  the  function  of  the  subroutine. 

The  computations  in  RNKT  closely  follow  the  analysis 
given  in  Section  7.5.1  of  Volume  I.  The  values  yj^,  y2, 

Y3»  Y4  represented  by  arrays  GJl(J),  GJ2(J),  GJ3(J), 

GJ4(J),  where  J runs  from  1 to  LIM.  Thus,  these  arrays 
contain  not  only  the  species  concentrations  but  also  the 
other  dependent  variables,  CT,  etc.  The  d'irivatives  fj^, 
f2»  f3  are  represented  by  arrays  Fl(J),  F2(J),  F3(J).  The 
parameter  {-P£^x)  in  1(398)  is  represented  by  an  array 
P(J;  . The  quantities  Fj^,  F2,  F3  defined  by  equations  1(398) 
are  represented  by  XlfJ) , X2(J),  X3(J). 
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Following  the  initializations,  RNKT  loads  data  into 
the  Fl,  GJl,  and  GJ2  arrays.  If  any  of  the  GJ2  values  is 
negative,  FAILED  is  set  to  .TRUE,  and  the  RETURN  is 
executed.  If  not,  CX  is  set  equal  to  CXB  + HDELX,  where 
HDELX  is  one-half  of  the  step  size  DELTAX.  Then  DERIVE  is 
called  to  compute  the  derivatives  F2(J),  and  the  gj3 
array  is  set.  The  signs  of  all  the  GJ3 ( J)  values  are 
tested.  In  addition,  if  TE  is  .FALSE.,  the  new  value  of 
the  energy  transfer  QDPE  to  the  electron  gas,  produced  by 
the  call  to  DERIVS,  is  tested  to  determine  whether 
iQDPE-QDPEBl  is  less  than  or  equal  to  DQMRK.  If  not,  the 
error  return  is  executed  unless  DQMAX  = 0 (which  means  that 
the  current  step  is  the  first  step  in  the  numerical 
integration) . 

If  the  solution  thus  far  passes  these  validity  checks, 
DERIVS  is  called  again  to  determine  the  derivatives  F3 ( J) . 
Next,  the  parameters  P(J)  are  calculated.  The  basic 
formula  for  P(J)  is  1(402).  In  the  Fortran  notation,  with 
P(J)— ► - P Ax  in  1(402),  this  equation  becomes 


P(J) 


^ F3(J)  - F2(J) 

* F2(J)  - F1(J) 


(155) 


However,  under  certain  conditions,  P(J)  is  set  to  zero. 

As  explained  in  Section  7.5.1  of  Volume  I,  this  is  done  if 
(f2-fi)/fi  = X4(J)/F1(J)  has  a magnitude  smaller  than  10“'^, 
to  avoid  excessive  loss  of  accuracy  on  subtractions. 

P(J)  is  also  set  to  zero  if  Fl(J)  =0,  to  avoid  a divide 
check  error  in  the  test  just  described,  or  if  the  evaluation 
of  (155)  would  lead  to  a floating  point  overflow  on  the 
indicated  division.  For  P(J)  > 0,  the  changes  of  the 
dependent  variables  are  computed  using  the  Runge-Kutta 
formula  1(392)  in  place  of  Treanor’s  formula  1(401). 

Once  the  P(J)  have  been  determined,  RNKT  proceeds  to 
compute  Xl(J),  X2(J),  and  X3(J).  If  P(J)  < -1.25,  these 
quantities  are  calculated  from  equations  1(398).  Since  the 
Fortran  P(J)  corresponds  ^o  (-PAx)  in  equations  1(398), 
these  formulas  can  be  rewritten  in  the  form 
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= X1(J) 

_1 

(156a) 

P(J) 

F2  X2(J) 

_ XI  (J)  - 
P(J) 

J. 

(156b) 

F3  •=  X3(J) 

X2(J)  - 
P(J) 

(156c) 

which  is  used  in  RNKT.  If  P(J)  > -1.25  (but  negative), 
the  subtractions  in  (156)  could  cause  excessive  loss  of 
accuracy.  In  this  case,  Fl,  F2,  and  F3  are  evaluated  frc..i 
the  power -series  expansion 


n 


oo 

= z 


k = 0 


Ip(j)3 

(n+k) : 


(157) 


which  can  easily  be  derived  by  substituting  the  Maclaurin 
expansion  for  e^  into  (156).  In  RNKT,  the  sums  (157)  for 
Fl,  F2,  f3  are  accumulated  in  the  locations  SI,  S2,  S3. 

The  general  terms  in  the  three  expansions  are  denoted  by 
Tl,  T2,  and  T3,  respectively.  These  term.s  are  initialized 
to  their  values  for  k = 0,  namely  Tl  = 1,  T2  = 1/2,  T3  = 
1/6.  Then  the  successive  terms  in  the  series  are  generated 
recursively: 


'Vk  = (T„)k-1  • ^ ns8) 

Wher.'  (Tn)]^  denotes  the  k^^  term  in  the  expansion  for  F^. 
In  F.j\  ;r,  the  denominator  (n+k)  in  (158)  is  represented  by 
(n+Z-3) , where  Z is  initialized  to  3 for  k = 0 and  is 
incremented  by  1 each  time  around  the  iterative  loop.  The 
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evaluation  of  (157)  proceeds  until  the  addition  of  T3  to 
S3  no  longer  affects  the  value  of  S3  to  within  floating- 
point accuracy. 

Next,  the  GJ4  ( J)  array  i-s  set.  For  each  J,  if  P(J)  is 
negative,  GJ4 (J)  is  computed  from  equation  1(405).  For 
zero  or  positive  P(J),  GJ4(J)  is  calculated  from  equation 
I(394c).  After  the  usual  validity  checks,  the  flow 
variables  GJ(J),  CT,  etc.,  are  set  to  their  corresponding 
values  in  GJ4(J),  CX  is  set  to  CXB  + DELTAX,  and  a final 
call  to  DERIVS  is  executed.  The  resulting  values  for  the 
derivatives  of  the  flow  variable  are  loaded  into  F4(J), 
and  the  array  SDQ(J)  of  changes  in  the  dependent  variables 
over  the  whole  integration  step  is  computed.  For  each  J, 
if  P(J)>  0,  the  Runge-Kutta  formula  1(392)  is  used  to 

calculate  SDQ (J) . If  P(J)  < 0,  then  Treanor's  formula 
1(401)  is  used.  Finally,  the  results  are  transferred  from 
the  SDQ(J)  array  into  the  storage  locations  SDGJ(J),  SDT, 
etc. , used  by  other  parts  of  the  program. 

3.61  Subroutine  SH0CK 

Subroutine  SH0CK*  computes  the  oblique  shock  angle  and 
the  conditions  behind  the  shock  for  supersonic  flow  of  a 
perfect  gas  over  a wedge.  The  first  three  of  the  arguments 
a.  e inputs  to  tne  routine.  BMF  denotes  the  free-stream 
Maoh  number  M,  DEL  the  flow  deflection  angle  (i.e.,  the 
angle  of  attack  of  the  wedge  surface, o^),  and  GAM  the 
specific  heat  ratio  T . Th'^  outputs  are  FL  and  lERR, 
which  are  defined  in  Section  4.128  and  by  comment  cards  in 
the  sulnoutine  listing. 

The  method  of  solution  is  based  upon  the  relation 
between  the  shock  angle  cr  and  the  deflection  angle  cx  , 
which  is  given,  for  example,  in  Liepmann  and  Roshko 
(ref.  15,  p.87).  This  relation  can  be  expressed  as  a cubic 
equation  in  singer  : 


*This  subroutine  was  programmed  by  Harvey  Buss,  Avco  Systems 
Division.  Statements  for  calculating  quantities  not 
required  in  NATA  have  been  converted  into  "comments"  to 
save  storage. 
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sin^c  + b singer  + c sin^o*  + d = 0 


(159) 


where 


b 


?li±2  - 7 sin2« 

m2 


(160a) 


c 


2M^+1  ^ r ('y  +1)  ^ 
L 4 


'y  -I 
m2 


J 


• 2,^ 
sin  <x 


(160b) 


, cos^oc 

d = - -i — 

m4 


(160c) 


Equation  (159)  has  three  roots  ^or  singer,  in  general,  of 
which  the  lowest  corresponds  to  a decrease  in  entropy  and 
thus  to  a physically  impossible  flow.  The  lower  of  the  two 
remaining  roots  gives  the  desired  weak-shock  solution, 
while  the  uppermost  root  gives  a strong-shock  solution 
(e.g.,  a normal  shock  with  o'  = for  = 0)  . Subroutine 
SH0CK  first  obtains  the  lowest  of  the  three  roots  by 
solving  equation  (159)  using  Newton's  method.  With 
u = singer  and 


F(u)  =?=  u^  + bu^  + cu  + d (161a) 

P'  (u)  = 3u^  + 2iju  + c (161b) 


an  improved  estimate  u'  of  the  root  is  obtained,  at  each 
step  of  the  iteration,  using  the  formula 


u' 


F (VT 
F'  (u) 


(162) 
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The  convergence  criterion  is  that  u ' = u to  within  1 part 
in  10®.  If  convergence  is  not  achieved  within  50  iterations, 
an  error  message  is  written  and  Lhe  RETURN  is  executed. 

Use  of  an  initial  estimate  u = 0 ensures  convergence 
to  the  lowest  root.  Once  this  root  uj^  has  been  obtained, 
the  desired  weak-shock  solution  is  obtained  by  factoring 
the  equation  F(u)  = 0: 


(u-uj^)  (u^  + Au  + 3)  = C 


(163) 


Equating  the  coefficients  of  corresponding  powers  of  u in 
(161a)  and  (163)  gives 


A = Uj^  + b (164a) 

B = ^d/u]^  (164b) 


The  two  remaining  roots  of  the  cubic  are  then  obtained  by 
equating  the  quadratic  factor  in  (163)  to  zero: 


u = E - A + \/a^  - 4B  ] (165) 


If  the  flow-deflection  angle  is  too  large,  the  argument 
of  the  square  root  in  (165)  becomes  negative  and  equation 
(159)  has  no  physically  valid  solution.  In  this  case,  the 
error  indicator  lERR  is  set  to  0 and  the  RETURN  is  executed. 
When  A^  - 4B  is  positive,  the  lower  of  the  two  values  (165), 
U2/  is  equal  to  singer  for  the  weak  shock. 

After  the  shock  angle  o'  has  thus  been  determined, 
subroutine  SH0CK  calculates  the  conditions  behind  the  shock 
using  perfect  gas  relations  (ref.  15,  p.  86) . The  only 
result  required  for  use  in  NATA  is  the  shock  pressure  ratio. 
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- 2 cr  - (7^-1) 

Pi  “ 'y+i 

3.62  Subroutine  SIMQ 

SIMQ  is  a standard  subroutine  for  solving  systems  of 
simultaneous  linear  equations.  It  was  obtained  from  the 
IBM  Scientific  Subroutine  Package  (lef.  /) , and  was  modified 
slightly  for  use  in  NATA.  The  modifications  consisred  of 
converting  it  into  a double  precision  routine  and  the 
addition  of  simple  coding  Lo  allow  SIMQ  to  handle  the 
special  case  of  one  equation  in  one  unknown.  The  only 
available  documentation  of  SIMQ  is  that  provided  by  commei 
cards  in  the  source  program. 

3.63  Subroutine  STUNTS 

This  routine  performs  two  separate  and  unrelated 
operations.  When  called  through  the  principal  entry 
(STUNTS),  't  produces  tables  of  species  thermal  properties 
as  functions  of  temperature  for  the  species  in  the  spec_fied 
gas  model.  When  called  through  the  entry  STUNT2,  it  gives 
an  edit  of  the  transport  property  calculations,  and 
optionally,  a table  and  a punched  deck  containing  averaged 
species  cross  section  data. 

3.63.1  Thermal  Property  Edit 

The  thermal  property  edit  is  produced  by  the  D0  loop 
ending  at  statement  110.  Fo^  each  species  J,  the 
properties  are  computed  at  a preset  series  of  temperatures 
TT(I)  up  to  the  input  value  of  the  reservoir  temperature 
CTAP.  These  temperatur'^o  are  as  follows; 

Prom  100°K  to  1000°K  at  intervals  of  100°K 
From  1000°K  to  3000°K  at  intervals  of  200*^ 

Prom  3000°K  to  10000°K  at  intervals  of  500°K 
From  10000°K  to  20000°K  at  intervals  of  1000°r 
From  20000°K  ti..  50000°K  at  intervals  of  2000°K 
From  50000°K  to  125000°K  at  intervals  of  500r'^K 
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maximum  nurab2r  of  temperatures  is  74,  (However,  the 
t'.c>:Tno  fits  for  the  molecular  species  in  the  compiled-in 
ce-  models  are  useful  only  up  to  about  20000°K. ) 

The  thermal  p»‘<''->erties  are  calculated  by  calling 
vu 'routine  ’’HERM  tj  each  temperature.  THERM  is 
i.x'ograroir.ed  calculate  the  properties  using  two  different 
methods,  physical  model  and  the  thermo  fit  (Section 

2.2  of  Vol.  I,  ref.  1).  The  physical  model  is  used  for 
temperatures  more  than  500®K  below  the  switchover  tempera- 
ttsre,  r'j.MXX'CTAP.  The  thermo  fit  is  used  for  tanperatures 
more  than  500*^  above  the  switchover  temperature.  In  a 
range  1000®K  wide  centered  at  the  switchover  temperature, 
a linear  combination  of  the  results  from  the  two  methods 
is  x'sed,  to  provide  a continuous  transition. 

To  obtain  thermal  properties  based  solely  on  the 
physical  model,  rather  than  on  a mixture  of  the  two  methods, 
subroutine  STUNTS  first  sets  CTMXX  to  1000,  and  calls 
THERM  for  each  temperature.  With  this  large  value  of 
CTMXX,  all  of  the  temperatures  are  more  than  500*^K  below 
CTMXX  times  the  reservoir  temperature.  The  results  of 
the  themal  property  calculations  based  on  the  physical 
model  are  stored  in  the  array  TPR0P(I,K,M)  for  M = 1. 

In  the  case  of  a nonstandard  species  for  which  physical 
model  data  have  not  been  provided  (ETAJ(J)  = 0),  the 
elements  of  TPR0P  for  M = 1 are  all  set  to  zero  and  the 
calculations  based  on  the  physical  model  are  skipped. 

For  each  species,  if  thermo  fit  data  have  been 
provided  (IGJ(J)  ,0)  , CTMXX  is  set  to  -1000  and  THERM  is 
called  again  for  each  temperature  up  to  the  reservoir 
temperature,  CTAP,  With  this  negative  value  of  CTMXX, 
all  of  the  temperatures  are  more  than  500°K  above  CTMXX* CTAP, 
so  that  the  calculations  in  THERM  are  based  solely  on  the 
thesnno  fit.  The  results  are  stored  in  TPR0P(I,K,M)  for 
M = 2. 

Finally,  all  of  the  results  for  the  species  are  printed 
out.  The  properties  computed  and  printed  are 
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TPR0P(I,L,M) 


(chemical  potential  in 
excess  of  the  formation 
enthalpy,  divided  by 
RqT) 

(molar  enthalpy  in 
excess  of  the  formation 
enthalpy,  kcal/mole) 

(molar  heat  capacity, 
cal/mole°K) 

(molar  entropy, 
cal/mole®K) 

Examples  of  the  thermal  property  edit  are  shown  in  figures 
19  to  46  of  Volume  II  (ref.  2) . 

3.63.2  Transport  Property  Edit 

The  transport  property  edit  consists  of  three  parts, 
the  first  two  of  which  are  always  obtained  when  STUNT2  is 
called.  These  parts  are  (1)  an  edit  of  the  steps  in  the 
transport  cross  section  calculation  as  specified  in  the 
input  or  in  the  precoded  data;  (2)  an  edit  of  the  ”edited” 
cross  section  calculations  after  unneeded  steps  have  been 
deleted,  and  needed  but  unspecified  steps  have  been  added 
on  the  basis  of  default  options;  (3)  an  edit  of  the 
averaged  pair  cross  sections  as  functions  of  temperature. 

(1)  Specified  steps  in  the  cross-section  calculation. — 
This  first  part  of  the  transport  property  edit  is  imple- 
mented by  the  D0  loop  ending  at  statement  150.  The  index 
L inans  over  the  steps  of  the  cross  section  calculation  in 
the  order  in  which  they  are  to  be  perfomed.  The  sequencing 
array  ISEQ (L)  selects  the  steps  from  the  input  or  precoded 
data;  i.e.,  the  step  which  is  carried  out  first  is  the  one 
indexed  I = ISEQ  (1) , etc.  NNQI  is  the  number  of  species 
pairs  to  which  the  cross  section  calculated  in  the 
step  will  be  applied.  The  indices  of  the  species  belonging 
to  such  a species  pair  are  IIQJ,  JJQJ  (referred  to  the 
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master  List  of  species) .*  For  each  step,  STUNT2  prints  out 
L,  1,  the  index  KKQ(I)  specifying  the  type  of  cross  section 
formula  used  in  the  step,  the  pareuneter  values  W(K,I),  and 
the  species  names  for  the  first  pair  of  species  to  which 
the  results  of  the  step  are  applied.  The  names  of  species 
for  the  remaining  species  pairs  (if  any)  are  then  printed 
on  successive  lines. 

(2)  Steps  in  the  edited  cross  section  calculation. — 
The  loop  ending  at  statement  190  prints  out  a description 
of  the  steps  in  the  "edited”  cross  section  calculation  which 
will  actually  be  used  in  the  transport  property  calculations 
for  the  current  case.  This  "edited"  calculation  differs 
from  the  "input"  calculation  in  two  major  ways:  The 

steps  applying  only  to  species  which  are  absent  from  the 
current  gas  model  have  been  deleted,  and  steps  which  are 
required  but  which  were  not  specified  have  been  provided 
on  the  basis  of  default  options**  such  as  the  cross  section 
mixing  rule. 

The  index  L in  the  D0  loop  ending  at  190  runs  over  the 
steps  in  the  edited  calculation,  in  the  order  in  which  they 
are  to  be  performed.  KQ (L)  is  the  index  of  the  option 
(cross  section  formula)  to  be  used  in  the  step,  NV(KK) 
is  the  number  of  parameters  used  by  this  option.  All  of 
the  parameters  for  all  of  the  steps  are  stored,  without 
gaps,  in  the  singly  dimensioned  array  V(I),  The  parameters 
for  the  step  occupy  the  locations  from  I = MVl  to  MV2 
in  this  array. 

The  indices  of  the  species  belonging  to  the  species 
pairs  to  which  the  steps  of  the  cross  section  calculation 
apply  are  stored,  without  gaps,  in  two  arrays  IQ(LQ), 

JQ(LQ).  These  indices  IQ  and  JQ  are  referenced  to  the 
species  list  for  the  current  gas  model,  rather  than  to  the 
master  list  of  species.  The  index  LQ  for  the  last  species 
pair  to  which  the  results  of  the  step  apply  is  NQ(L). 


*See  Section  4,2  of  Volume  II  (ref,  2). 

**See  Section  4.6  of  Volume  II  (ref,  2) , 


For  each  step  L,  STUNT2  first  prints  L»  the  option 
index  KQ(L),  and  the  parameter  list  V(I)  for  the  option. 
Then  it  prints  the  names,  HP (I),  HP(J),  for  the  first 
species  pair  using  a carriage-control  character  + in 
column  1 to  place  these  names  on  the  same  line.  If  there 
are  any  additional  species  pairs  to  vdiich  the  step  is 
applicable,  their  names  are  printed  on  successive  lines. 

(3)  Averaged  transport  cross  sections. — If  ISHlB  is 
negative,  STUNT2  prints  a table  giving  the  transport  cross 
sections  for  the  various  species  pairs  as  functions  of 
temperature.  If  ISWIB  = -1,  STUNT2  also  punches  these  same 
data  on  cards  for  use  by  other  computer  progreuns.  Some  of 
the  cross  sections  for  charged  species  depend  upon  the 
electron  partial  pressure  as  well  as.  the  t^perature.  In 
STUNT2,  the  mole  fractions  SAVEC(I)  used  by  the  transport 
property  routines  are  set  to  their  values  in  the  reservoir 
(for  the  current  case) , auid  are  held  fixed  as  the  tanpera- 
ture  is  varied.  The  pressure  is  also  held  constcuit  at  its 
reservoir  value.  Thus,  all  of  the  cross  sections  printed 
eu:e  based  upon  the  electron  pressure  in  the  reseirvoir. 

The  calculations  and  output  are  provided  by  the  D0 
loop  ending  at  statement  230.  For  each  species  pair  (I,J) 
with  I < J,  the  temperature  is  varied  from  1000°K  to  the 
reservoir  temperature  CTAP  by  intervals  of  1000°K.  At 
each  temperature,  subroutine  TIJANSP  is  called.  With 
ISWlB  <0,  TRANSP  does  not  compute  the  viscosity,  Preuidtl 
number,  etc. , but  does  call  lower-level  treinspprt  routines 
to  set  up  the  cross  section  array  Q(Ii,I,J),  where  I and  J 
are  the  species  indices  and  L runs  from  1 to  3.  These 
data  are  printed  (and  punched  for  ISWlB  = -1) , together 
with  the  temperature,  species  indices,  species  names,  and 
a counter  ICARD  which  serializes  the  punched  cards.  Their 
relation  to  the  cross  sections  used  in  transport  theory  is 
(Section  3 of  Vol.  I,  ref.  1)  : 

Q(1,I,J)  = n.ij 

Q(2,I,J)  = 

* k(1'1) 

Q(3,I,J)  = 
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They  zure  expressed  in  units  of  om^. 

3,64  Subroutine  THERM 

THERM  is  the  routine  which  computes  the  species  thermal 
properties:  (chemical  potential  at  standard  pressure)* 

Hj  (molar  enthalpy) * S (molar  entro{^  at  standard 
pressure)  * cind  Cpj  (molar  heat  capacity  at  constant  pressure) . 
In  its  internal  calculations,  NATA  uses  these  properties  in 
nondimens ional  form;  the  quantities'  actually  computed  in 
THERM  are 


U 

XNJAT(J)  = — 
RqT 

(167) 

SHJ(J)  = 

(168) 

s.® 

SENT(J)  = -3- 

(169) 

ccpj(j)  = 

(170) 

»0 


wte  re  J j is  the  species  index  in  the  list  of  species  for 
the  current  case.  In  these  formulas,  Rq  denotes  the 
universal  qas  constant  eind  Tq  the  reservoir  temperature. 

flhen  the  subroutine  is  called  through  the  entry  THBRMl, 
only  the  heat  capacity  is  ccxnputed. 

THERM  provides  two  methods  for  calculating  the  species 
thermal  properties:  the  “physical  model"  and' the  thermo 

fit.  These  techniques  have  been  explained  and  discussed  in 
Section  2.2  of  Volume  I (ref.  1).  Data  for  the  physical 
model  are  provided  for  all  standard  species.  In  the 
current  version  of  IQVTA,  themo-fit  data  are  provided  only 
for  the  diatomic  molecules  and  molecular  ions  in  air  curid 
the  planetary  atmosphere  models.  The  array  IGJ(J) 
indicates  whether  thermo  fit  data  are  available  for  each 
species.  If  IGJ(J)  =0,  there  are  no  thermo  fit  data  for 
the  species;  in  this  case  the  physical  model  is  used 
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for  the  species  at  all  tenperatures.  If  ETAJ(J)  0.  there 
are  no  physical-model  data,  aurul  the  therr\o  fit  is  used  at 
all  t^operati  res. 

In  tiie  case  of  species  for  which  both  physical-model 
and  thermo  fit  data  have  been  provided,  the  physical  model 
is  used  from  low  tenperatures  up  to  a nominal  switcdiover 
tenqperature,  dMXXI,  which  is  preset  to  5000®K;  and  the 
thermo  fit  is  used  at  higher  temperatures*  To  prevent 
possible  program  failures  due  to  discontinuities  in  com- 
puted species  properties  resulting  from  small  laismatches 
between  the  physical  model  and  thermo  fit  results,  the 
switchover  is  spread  over  a tempera t\ire  range  1000®K  wide, 
centered  at  CTMXXI*  Equations  1(58)  are  used  to  mix  the 
results  from  the  two  techniques  in  this  tai^>erature  range. 

The  tenperature  variable  used  by  MATA  in  its  internal 
computations  is  CT,  a nondimensional  tenperature  defined  as  >, 
T/Tq,  The  corrresponding  nondimensional  switchover  taipera- 
ture  is  CTMXX  = C1MXXI/Tq.  For-  species  and  t^iperatures  for 
which  the  thermo  fit  is  used,  the  species  properties  are 
cqnputed  from  the  formulas  1(33),  1(34),  1(29),  and  1(31). 
Prior  to  the  first  call  to  TSBRii,  the  thermo  fit  coeffici- 
ents TFA(J)  = a,  etc.,  have  been  nondimensionalized  in 
subroutine  IN  IT  so  as  to  allow  direct  use  of  the  nondimen— 
sional  tenperature  CT  in  the  thermo  fi.t  fomulas. 

The  physical  model  calculations  are .done  in  two  steps. 
The  first  step  ccmputes  the  translational,  rotational,  and 
vibrational  contributions  to  the  species,  properties,^ and 
the  second  step  the  contributions  due  to  electronic  exci- 
tation. The  first  step  is  coded  separately  for  monatomic 
and  diatomic  species,  on  the  one  hand,  and  for  linear  tri- 
atomic  species,  on  the  other.  In  the  case  of  monatcmiic 
and  diatcxnic  species,  the  calculations  are  done  using  equa- 
tions I (50), I (51),  1(54),  1(56),  and  1(29).  For  linear  tri- 
atomic  species,  equations  1(52),  1(55),  1(57),  and  1(29) 
are  used. 

If  the  control  parameter  INEQV  is  nonzero/  the  prop- 
erties of  molecular  species  are  calculated  on  the  assxinp- 
tion  that  the  vibrational  degrees  of  freedom  are  frozen  at 


-187 


the  reservoir  tenqperature.  In  this  case,  the  formulas 
given  in  Section  2.4  of  Volume  I (ref.  1)  cure  used  to 
calculate  the  species  properties. 

3.65  Subroutine  THM^AT 

The  function  of  THREAT  is  to  adjust  the  nozzle  geo- 
metry in  the  downstream  region  sc  as  to  make  the  effective 
area  ratio  ccmtinuous  between  the  upstream  solution  by 
the  inverse  method  and  the  direct  downstream  solution.  It 
performs  this  function  by  multiplying  the  rescaling  factor 
RSA,  %diich  is  used  in  GE0MAR,  and  which  is  initially  1.0, 
by  the  factor  AG/Sl,  Here  SI  is  the  geometric  area  ratio 
based  on  the  specified  nozzle  geometry  before  the  adjust- 
ment, cuid  AG  is  the  geometric  area  ratio  calculated  from 
the  effective  eucea  ratio  AFNX,  If  the  boundary  layer  is 
not  included  in  the  solution;  AG  is  equal  to  AFNX,  If  the 
boundary  layer  is  included,  AG  is  computed  from  AFNX  by 
calling  subroutine  AGS0LN.  Since  boundary  layer  displace- 
ment effects  upon  the  inviscid  flow  are  neglected  during 
the  nonequilibrium  solution  by  the  inverse  method,  the  re- 
scaling also  provides  continuity  of  the  effective  area 
ratio  when  the  coupling  of  the  inviscid  flow  with  the 
boundary  layer  is  switched  on  following  the  call  to  THI^AT. 

In  addition  to  calculating  RSA,  THR0AT  prints  an  in- 
formative message  specifying  the  conditions  at  the  current 
flow  point,  and  resets  the  indicator  lUPD  from  1 to  0 to 
signify  that  the  switch  from  the  inverse  method  to  the 
direct  integration  has  occurred. 

3.66  Subroutine  TRANSP 

Transport  property  calculations  are  performed  in  the 
NATA  code  under  the  general  supervision  of  subroutine 
TRANSP.  This  subroutine  contains  two  entries:  TRANSX  which 

is  called  to  initialize  the  routines,  and  TRANSP (TTAB,P) 
which  carries  out  the  actual  transport  property  calcula- 
tions for  any  specified  gas  conditions. 

The  entry  TRANSX  is  called  prior  to  the  start  of  actual 
transport  property  calculations,  in  order  to  inform  the 


routines  of  the  species  to  be  used  in  the  calculations 
and  to  perform  certain  required  initializations.  The 
entry  first  sets  the  total  number  of  species  I^ISS  to  be 
used  in  the  transport  calculations  and  then  calls  subrou- 
tine XSECT  which  selects  cross  section  data  for  the  species 
to  be  used  in  the  calculations  from  the  data  available  in 
the  code  and  arranges  them  in  a form  convenient  for  the 
subs  juent  computations.  Finally,  TRANSX  calculates  a 
number  of  quantities  depending  on  the  species  molecular 
weights  which  will  be  required  in  the  subsequent  transport 
computations,  before  returning  control  to  the  calling  pro- 
gram. The  qucuitities  calculated  here  cure 

ZM1{I)  = 11^.  ^ -it  = 2.8567  Wi  ■ ■ ..  ■ (171a) 
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Once  the  gas  species  have  been  defined  by  calling  TRANSX, 
the  transport  properties  for  any  given  gas  condition  are 
computed  by  calling  TRANSP(TTAB,P) , where  TTAB  is  the  gas 
temperature  and  P is  the  gas  pressure  in  atmospheres.  The 
species  mole  fractions  are  obtained  fr<xn  the  array  SAyEC(J) 
in  common  block  /TEMPRY/.  The  first  step  in  the  cranputa- 
tion  is  the  calculation  of  the  molar  ipecific-heat'  for 
each  species  in  the  mixture.  This  calculation  is  ^sucrisd  ^ 
out  by  calling  the  entsry  THERMl  of  subroutdLne  THERM.  Input 
to  the  calculation  is  by  means  of  the  common  variable  CT 
which  specifies  the  ratio  between  the  temperature  TTAB  for 
which  the  specific  heats  are  to  be  calculated  and  the  res- 
ervoir temperature  CTAP.  The  nondimensional  molar  heat 
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capacities  at  constant  pressxire  WjCpj/NQk  for  each  species 
in  the  mixture  are  then  returned  to  subroutine  TRANSP  in 
the  conunon  variable  CCPJ(J).  These  values  are  saved  by 
the  routine  in  the  array  DH  for  later  use  in  computing  the 
internal  thermal  conductivity  from  equation  1(95),  and  are 
also  used  to  compute  the  nondimensional  frozen  specific 
heat  CPT0T  = It  Cpf/NQk  for  the  mixture,  which  is  required 
in  the  calculations  of  the  Prandtl  and  Lewis  numbers, 
equations  1(83)  and  1(84).  In  calculating  the  specific 
heats,  it  is  necessary  to  save  the  previous  values  of  CT 
and  CCPJ  in  a temporary  location  and  then  restore  them  for 
later  use  in  other  portions  of  the  flow  field  calculations. 

After  ccxi^leting  the  specific  heat  calculations,  TRANSP 
next  calls  siAroutine.PUTQIN  which  cc^putes  the  collision  cross 
sectionsS-i^ ,ri . . , and  in  units  of  10“^® 

cm^  for  all  pairs  of  species  in  the  mixture  at  the  specified  tem- 
perature and  pressure.  These  cross  sections  are  returned  to  sub- 
routine TRANSP  in  the  upper  half  {1^  J)  of  the  common  arrays 
Q(1,I,J),  Q(2,I,J),  and  Q(3,I,J)  respectively.  If  an  edit 
of  pair  cross  sections  has  been  requested  (ISWIB  < 0) , a 
return  is  now  executed,  aid  subroutine  STUNTS  then  prints 
the  cross'  sections  contained  in  the  Q array.  However,  in 
a normal  NATA  r^  (ISWIB  > 0) , subroutine  TRANSP  uses  these 
values  of  -^e  XI  . > f s)  to  compute  the  matrix  elonents 

and^  equations  1(88)  to  1(90),  which 

are  required  in  the  transport  property  calcula-^ons,  and 
stores  them  in  the  Q array,  replacing  the  XI  values 

which  were  previously  stored  there.  The  statements  down 
to  80  compute  and  store  these  quantities  as  follows: 

(172a) 


(172b) 


s & ^ A f2)  f or  I ^ J (172c) 

6 k 3.3 


Q(1,I,J) 

Q(1,I,J) 

Q(2,I,J) 


= i /?  A „ (1)  (245^ 


4 

a^/r 

8 


‘if’ 


milliwatt: 

.cm  (Ok)^/^ 
» * 


) for  I J 


-)  for  I > J 


milliwatt 
ZM2(I)  A,ir> 


13 


milliwatt 
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) for  I > J (I72d) 


Q(2,I,J)  = /t 
Q(3,I,J)  = ^ /t 


^ (Ok) 
millipoise 

,cm  (°k)3/2 
milliwatt^ 


(I72e) 


In  connection  with  these  computations,  it  may  be  noted  that 
- the  diagonal  matrix  elements  aii  ' are  not  required  in  the 
transport  calculations,  as  shown  by  equation  1(86),  so  that 
it  is  unnecessary  to  compute  them  here.  Since  the  quantity 
(172e)  is  not  symmetric  in  i and  j,  it  requires  the  whole 
Q(3,I,J)  matrix  for  storage,  whereas  the  other  matrix 
elements  are  ail  symmetric,  and  can  be  stored  in.  half  the 
array.  The  quantity  /OcpfD^j/N/T  in  milliwatts/cm 
is  also  computed  and  stored  by  the  code  as  FLLWIS,  where 
D^.  represents  the  binary  coefficient  1(99)  between  the  two 
species  IDl  iind  ID2  which  have  been  specified  for  the  cal- 
culation of  the  Lewis  number  in  the  code  input. 

The  calculation  of  the  transport  properties  from  the 
matrix  elements  (172)  is  begxin  in  the  D0  loop  ending  at 
statement  90,  and  is  then  carried  forward  in  a series  of 
three  s\±>routines  ELC;25ND,  KINT,  and  KANDMU,  The  quantities 
returned  to  TRi\NSP  by  these  subroutines  are 

SIGMA  = a-  in  mhos/cm 

ZKINT  = (milliwatts/cm- (°K)^/^) 

ZK(1)  = (milliwatts/cm-(°K)^/^)  (173) 

ZK(2)  = ^//t  (millipoise/ (°K)^^) 

where  a , K^nt»  ^r»  h respectively  the  electri- 

cal conductivity,  the  internal  thermal  conductivity,  the 
translational  the;otial  conductivity,  and  the  viscosity  of 
the  mixture,  as  given  by  equations  1(85)  to  1(87),  1(95) 
and  1(98).  These  quantities  are  then  combined  further  by 
subroutine  TRANSP  according  to  equations  1(83),  1(84)  and 
1(94)  to  obtain  the  viscosity  VISC  in  poise,  and  the  frozen 
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Prandtl  number  PRF  and  the  atom-molecule  Lewis  nuitiber* 
FLEWIS.  These  queintities,  along  with  the  electrical  con- 
ductivity SIGMA,  are  then  returned  to  the  calling  program 
in  the  common  block  TRPROP,  For  ISW8B  ^ 0,  these  data,  as 
well  as  certain  other  quantities  of  interest,  are  also 
printed  out  by  the  final  section  of. subroutine  TRANSP  be- 
fore returning  control  to  the  calling  program, 

3,67  Subroutine  WEDGE 

Subroutine  WEDGE  calculates  the  pressure,  heat  flux, 
and  boundary  layer  displacement  thickness  on  wedge  models. 
The  calculations  are  done  using  the  modifications  1(501), 
1(503),  1(505)  of  the  results  of  he  Cheng-Kenip  theory. 
Optionally,  the  calculations  are  also  dene  using  the  unmod- 
ified Cheng-Kemp  theory  if  the  input  control  variable 
ISW9B  is  set  to  a value  in  the  range  from  -1  to  -3  . 

WEDGE  obtains  the  free-stream  flow  properties  required 
in  the  calculations  from  the  array  FV0UT  in  common  block 
/0UTPUT/,  The  data  in  this  array  refer  to  the  current  flow 
point,  because  the  free  stream  conditions  are  always  printed 
out  immediately  prior  to  a call  to  svibroutine  M0DEL  which, 
in  turn,  calls  TflEDGE,  These  data  are  accessed  by  equiva- 
lencing  the  variable  names  used  in  WEDGE  to  the  correspond- 
ing FV0UT  array  elements. 

The  svibroutine  logic  is  straightforward.  All  quanti- 
ties which  are  independent  of  the  angle  of  attack  and  the 
wedge  leading-edge  radius  are  computed  first.  The  remain- 
ing calculations  are  performed  and  the  results  are  printed 
out  in  a pair  of  nested  D0  loops  over  the  index  IR  for 
leading  edge  radii  and  the  index  lA  for  angles  of  attack. 


*The  Lewis  number  as  given  by  1(84)  is  multiplied  by  an 
integer  variable  lAMBIP,  which  is  equal  to  1 if  the  two 
species  for  which  the  Lewis  number  is  calculated  are  both 
neutral,  and  equal  to  2 if  one  of  these  species  is  an  ion, 
Tlie  factor  of  2 . takes  account  of  the  arabipolar  nature  of 
the  diffusion  of  ions  in  a neutral  plasma. 
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For  each  angle-radius  combination,  the  subroutine  performs 
calculations  for  all  of  the  specified  distances  from  the 
leading  edge.  These  distances  are  sjecified  in  the  input 
in  two  independent  ways; 

(1)  A uniform  sequence  of  NWX  points,  with  an 
initial  value  of  WXl  and  an  increment  DWX; 

(2)  A list  of  arbitrary  values  in  ascending 
order . 

Subroutine  WEDGE  folds  these  two  sequences  together  into  a 
single  sequence  arranged  in  ascending  order,  using  logic 
similar  to  that  employed  in  subroutine  NEXTMP. 

WEDGE  calls  subroutine  SH0CK  to  conpute  the  static 
pressure  ratio  across  the  oblique  shock,  denoted  by  APR(IA) , 
This  quantity  is  used  in  calculating  the  angle  of  attack 
parameter  F (denoted  by  CAPGAM)  from  equation  1(501)  in 
the  modified  Cheng-Kemp  theory.  After  F and  (ZETA) 
have  been  computed,  WEDGE  calls  subroutine  WES0LN  to  ob- 
tain the  approximate  solution  of  the  Cheng  equation.  The 
arguments  of  WES0LN  are  double  precision. 

The  calculations  based  on  the  modified  Cheng-Kemp 
theory  are  performed  for  ITH  = 1.  When  these  calculations 
have  been  completed  at  a given  model  point,  if  ISW9B  is 
negative,  ITH  is  set  equal  to  2 and  all  of  the  calculations 
are  done  over  using  the  unmodified  theory. 

The  input  variable  ISW9B  is  also  used  to  control  the 
output  of  some  results  of  secondary  interest.  If  IS9=1ISW9bI 
is  equal  to  1,  the  shock  ordinate  YS  is  printed;  if  IS9  is 
equal  to  2,  the  nondimensional  coordinate  ZETA  is  printed; 
and  if  IS9  is  equal  to  3,  both  YS  and  ZETA  are  printed, 

3.68  Subroutine  WES0LN 

The  function  of  subroutine  WES0LN  is  to  solve  the  Cheng 
equation  1(480)  for  z,  zz',  and  (zz')'  when  < and  ^ are 
given.  The  solution  is  based  on  the  approximation  1(484) . 
which  relates  the  solution  for  general  F to  that  for  F = 0, 
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The  latter  is  obtained  from  Cheng’s  analytical  solution 
1(482),  1(483)  for  ^ > 10”^.  For  small  X , there  is 
a great  deal  of  cancellation  of  terms  in  1(482),  sotliat 
many  significant  figures  of  accuracy  are  lost.  This  prob- 
lem is  kept  under  control  by  performing  all  of  the  arith- 
metic in  WES0IiI  in  double  precision,  and  h using  an  analy- 
tical series  solution  for  10“®: 

z = 1.65096  <2/3  + 0.50869  - 0.0249  f (174a) 

Z2'  = 1.81711  f ^/2  + 1.25975  < ^/^  + 0.14712  <2/3  (^7413) 

< 

(.5Z*)'  = 0.6057<"^/^  + D. 62988  < "^/2  + 0.09808  X “^/^ 

(174c) 

Equation  (174a)  was  derived  by  Eager  and  Aiello  (ref.  16). 
Equations  (174b)  and  (174c)  can  bo  obtained  from  (174a)  by 
differentiation. 

For  X > 10**®,  equation  I (482b)  is  solved  for  X using 
Newton's  method.  The  parameter  X is  denoted  by  XL.  An 
initial  trial  value  of  > is  obtained  from  the  rough  analy- 
tical approximation 


X = zz*  = (6  )^^  + (3  < )^/^  (175) 

which  has  a maximum  error  of  about  12  percent.  At  each 
step  in  the  Newton  iteration,  < is  calculated  from  the 
current  trial  value  of  X using  equation  l(482b),  and  an 
improved  estimate  X'  of  X is  obtained  from 

X'  = X-  ( < - < .)  dX  ^176) 

^ d< 

in  which  f is  the  input  value  ZETA  and,  from  1(480) 
with  r =0  and  1(483), 
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d c dC 


(177) 


(z 


dz  . _ 1 + VZ2» 
d ^ z 


i^yr 

z 


Where  z is  conqputed  from  I (482a).  The  convei:gence  criher- 
ion  of  the  iteration  is  that  the  t from  I (482b)  equal  the 
input  value  to  within  0.01  percent. 

Once  the  correct  value,  of  for  the  solution  with 
r*  = 0 has  thus  been  found,  the  three  outputs  of  the  rou- 
tine are  coaputed  as  follows:  zz*  (deroted  by  ZZP)  is 

obtained  from  equation  1(491),  (zt')'  (denoted  by  ZZPP) 
from  1(434)  and  1(485),  eind  ::  (denoted  by  Z)  frcxa  1(492). 

3.69  Subroutine  XSECT 


Suibrouciiie  XSECT  provides  NATA  with  the  capability  to 
perfom  transport  property  calculations  for  gas  models 
which  do  not  contain  all  of  the  species  listed  in  the  pre- 
coded  cross  section  data,  and  in  which  the  species  may  be 
listed  in  a different  order.  For  this  purpose  the  stibrou- 
tine  sets  up  a nev/  set  of  data  for  the  cross  section  conpu- 
tations  in  common  block  /TRANS7/  which  gives  the  same  values 
for  the  cross  sections  as  the  original  input  data  in  common 
block  /TRANS2/,  but  which  isina  more  condensed  format,  aid 
is  referenced  to  the  set  of  species  included  in  the  current 
gas  model  rather  than  to  the  larger  set  of  ^ecies  for 
which  cross  sections  are  defined  in  the  parecoded  cind  input 
data.  The  edited  data  in  common  block  /TRANS?/  are  then 
used  by  the  code  in  conputing  collision  cross  sections  for 
the  gas  in  the  subsequenc  transport  property  calculations. 
The  original  cross  section  data  are  also  retained • unchanged 
in  common  block  /TRANS2/,  in  order  to  allow  the  running  of 
stacked  cases  with  different  sets  of  species. 

Since  several  of  the  options  which  are  used  for  comput- 
ing cross  sections  in  NATA  (see  Section  4.6  of  Volume  II, 
ref,  2)  give  values  for  the  cross  sections  which  depend  on 
the  values  conq>uted  in  previous  steps  of  the  computation, 
the  edited  cross  section  data  in  conmon  block  /TRANS7/  are 
set  up  to  carry  out  the  steps  of  the  cross  section  computa- 
ticms  in  the  same  order  in  which  they  were  specified  in  the 
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original  data;  however,  the  species  references  in  the  data 
are  changed  so  that  the  computed  cross  sections  will  be* 
ixidexed  in  the  same  way  as  the  species  used  in  the  cur- 
rent gas  model,  rather  than  being  indexed  to  the  original 
precoded  or  input  data.  Further,  cross  sections  for  pairs 
of  species  not  required  in  the  transport  calculations  are 
omitted  from  the  edited  data,  ^uld  any  missing  cross  sec- 
tions are  supplied  according  to  the  default  options  des- 
cribed in  Section  4.6  of  Volume  II.  The  procedures  used 
by  subroutine  XSECT  in  preparing  these  edited  data  are 
described  in  the  following  paragraphs.  It  may  be  noted 
that  several  of  the  cross  section  options  available  in  the 
code  contain  features  v\bich  require  special  treatment  in 
this  process,  so  that  the  coding  of  the  subroutine  becomes 
rather  lengthy,  although  the  basic,  concept  is  simple.  A 
schematic  flowchart  of  the  subroutine  showing  the  major 
control  sections  is  provided  in  figure  27. 

3.69.1  IiiLtializations 

The  first  executable  statement  in  si:ibroutine  XSECT 
sets  the  number  of  species  N for  which  cross  sections  are 
to  be  commuted  equal  to  the  number  of  species  ISS  in  the 
current  gas  model.  The  next  two  statements  set  IEI£C  = 1 
if  electrons  are  to  be  considered  in  the  transport  calcu- 
lations and  lEIiBC  = 0 otherwise.  If  electrons  are  included 
in  the  calculations,  they  must  always  be  the  first  species. 

The  statements  from  " JJ  = 50"  down  through  statement  30 
establish  the  correspondence  between  the  species  in  the 
current  gas  model  and  the  roaster  list  of  species,*  which 
is  used  in  indexing  the  cross  section  data  supplied  in  comr- 
mon  block  /TRANS2/.  IHiese  statements  use  the.  common  vari- 
able IS(L),  which  gives  the  index  IS  in  the  master  species 
list  of  the  species  in  the  current  gas  model  (for  11  L lISS)., 
to  prepare  a new  array  I(J)  which  gives  the  position  I in  the 
current  model  of  the  Jth  species  in  the  master  specibs  list, 
for  eacb  species  included  in  the  current  gas  model.  Species 
in  the  master  species  list  which  are  not  included  in  the 
current  model  are  filled  into  the  I(J)  array  in  order  fol- 
lowing the  species  included  in  the  current  model,  so  that 

— ■ — - — ■ - - ■ . . 

*See  Section  4.2  of  Volume  II  (ref.  2). 
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Figure  27.  Schematic  Flowchart  of  Svlbroutine  XSECT 


I'J)  defines  a rearrangement  of  the  master  species  list 
such  that  all  species  J in  the  original  master  species 
list  occur  at  some  point  I(J)  in  the  rearranged  list,* 
and  the  first  ISS  species  in  the  rearrai^ed  list  are  just 
the  species  in  the  current  mod^l,  in  the  correct  order. 

The  three  statements  following  statement  30  determine 
the  indices  IDl  and  1D2  in  the  rearranged  species  list  of 
the  species  to  be  used  in  the  Lewis  number  calculations. 

They  are  set  up  so  that  IDl  < ID2  in  all  cases. 

The  coomon  variable  Q(1,J,L)  is  used  as  a flag  in  sub*- 
routine  XSECT  to  indicate  those  pairs  of  species  for  which 
cross  section  data  have  been  supplied.  Statements  40  through 
50  initialize  this  variable  to  0 for  all  pairs  of  species 
included  in  the  cross  section  calculations,  cuid  the  value 
is  then  later  set  to  1 for  each  species  pair  for  whidi  data 
axe  provided.  The  value  Q(  1,2,1)  = 1.  is  set  initially  to 
indicate  that  the  pair  (2,1)  is  used  in  the  intermediate 
calculation  of  the  cross  sections  in  subroutine  POTQIN,  and 
is  thus  not  available  for  use  in  input.  (Note  that  we  are 
concerned  here  with  ordered  pairs  (J,L).  Only  the  pairs 
with  J < L are  used  in  the  actual  transport  property  cal- 
culations,** \Aiile  those  ^th  J > L are  available  for  inter- 
mediate calculations  if  desired.) 

3.69.2  Resequencing  of  Steps  and  Revision 
of  Species  References 

The  coding  following  statement  50,  down  to  statement 
110,  revises  the  species  references  in  the  input  cross  _ 
section  data  to  conform  to  the  reeurranged  species  list  I(J) 
described  above  and  sets  up  a preliminairy  version  of  the 
edited  cross  section  data  in  common  block  /TRANS7/  using 
these  revised  data.  At  this  stage  of  the  ccxnputation,  the 


*It  is  assumed  that  the  master  species  list  contains  no 
more  than  50  species;  in  the  current  version  of  NATA,  array 
dimensions  limit  the  number  of  species  to  30. 

**See  the  discussion  of  subroutine  TRANSP  in  Section  3.66. 
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edited  < ata  contain  the  same  information  as  the  original 
cross  !5  ction  data  in  common  block  /TRANS2/,  but  the  order 
of  att  V 3 in  the  edited  data  is  rearranged  to  confom  to 
that  s ecified  by  the  sequencing  array  ISEQ,  and  the  data 
on  sj>ecies  pairs  and  cross  section  parameters  for  each 
step  cire  close  packed  in  the  IQ,  JQ,  and  V arrays.  Further, 
NQ(b)  i:n  the  edited  data  is  taken  to  be  the  sum  from  1 to 
L of  the  original  KNQ(L)  values,  and  the  indices  of  all 
specie^  pairs  in  the  edited  data  are  changed  to  refer  to 
the  po!.  Ltions  of  the  species  in  the  rearranged  species  list, 
I(J).  Since  only  cross  sections  Q(J,K)  with  J < K co:e 
us  3d  in  the  transport  property  calculations,  the  correspon- 
dence between  species  pairs  used  in  setting  up  the  edited 
cross  section  data  must  preseirve  this  property.  Accordingly, 
the  pair  (J,K)  in  the  original  data  is  replaced  by(I(J), 

I(K))  if  J-K  and  I(J)-I(K)  have  the  same  sign  emd  by  the 
pair  (I  (K),  I(J))  if  they  have  different  signs.  Since  this 
corr jspondence  is  1-1  between  ordered  pairs  of  species,  it 
is  clear  that  when  every  species  pair  in  the  original 
cros.5  section  data  is  replaced  by  its  corresponding  pair 
in  ti  e edited  data,  the  calculated  cross  section  values 
will  all  be  the  same  as  before,  but  will  be  rearranged  in 
the  order  requir'  i for  the  transport  property  calculations. 

The  above  correspondence  between  species  pairs  is 
carried  out  in  the  NATA  code  by  subroutine  CXSECT,  which 
returns  the  revised  indices  of  a species  pair  in  its  argu- 
ment list  when  it  is  called  with  the  original  indices. 

In  the  coding  down  through  statement  80,  this  correspon- 
dence is  vsed  tc  s'^.t  up  the  IQ,  JQ  list  of  species  pairs 
for  the  revised  v.  .oss  section  computations.  This  section 
of  coding  alsv  sets  Q(.1,L,J)  = 1.  for  those  species  pairs 
which  are  ii  eluded  in  the  IQ,  JQ  list. 

For  the  cross  section  options  KQ  = 9 and  12,  there  are 
also  references  to  species  pairs  in  the  V parameters  of  the 
opt! .n  which  must  be  revised.  This  revision  is  carried 
O'  t by  the  state’-.ents  following  statement  80  down  through 
the  statement  before  110.  Subroutine  BXSECT  searches 
through  the  steps  L of  the  cross  section  computation  in 
common  block  /TRANS7/,  starting  with  the  first  step  after 
the  va^-ue  of  L specified  in  its  argument,  and  looking  for 
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a step  with  KQ(L)  = 9 or  12.  When  such  a step  is  found, 
the  subroutine  returns  the  index  of  the  step  L,  the  index 
MMV  + 1 of  the  first  V parameter  for  the  step,  and  the 
indices  LL  and  J of  the  species  pair  v^ich  is  referenced 
in  the  V parameters  of  the  step.  Subroutine  XSECT  then 
calls  CXSECT  to  revise  the  indices  for  the  pair  and  goes 
on  witli  the  search  by  calling  BXSECT  again.  This  process 
is  continued  until  the  final  step  L = NKQ  of  the  computa— 
ticxis  is  reached;  at  this  point  BXSECT  sets  L to  0 as  a 
signal  that  the  search  has  been  completed  and  control 
passes  to  the  next  section  of  code  (statement  110).  In 
addition  to  revising  the  indexing  of  the  species  pairs, 
this  section  of  code  also  sets  MMV,  for  later  use,  equal 
to  the  total  number  of  V.parame  ers  used  in  the  cross 
section  ccxnputations . 

3.69.3  Deletion  of  Unused  Steps 

When  control  reaches  statement  110  of  subroutine  XSECT, 
the  rearrangement  of  the  species  in  the  cross  section  data 
to  conform  to  the  order  in  the  current  gas  model  has  been 
completed.  The  following  section  of  coding,  from  statement 
110  through  380,  is  now  concerned  with  increasing  the  effic- 
iency of  the  cross  section  computations  by  cxnitting  unnec- 
essary steps  in  the  computation.  In  this  procedure,  the 
statements  from  110  to  300  determine  which  cross  sections 
are  to  be  omitted  from  the  conputations,  whiia  those  frcxa 
300  through  380  carry  out  the  actual  editing  of  the  cross 
section  data  to  delete  these  values. 

As  noted  previously,  the  number  of  species  N to  be  in- 
cluded in  the  cross  section  confutations  is  set  equal  to  the 
number  of  species  in  the  current  gas  model  at  the  begin- 
ning of  subroutine  XSECT.  Thus  only  cross  sections  between 
pairs  of  species  with  indices  I < N in  the  revised  cross 
section  data  are  required  in  the  transport  property  calcu- 
lations. Ordinarily  cross  sections  involving  a species 
with  index  > N can  be  omitted  from  the  cross  section  com- 
putations without  changing  the  values  of  the  computed  cross 
sections  for  the  remaining  species  with  indices  1 N;  however, 
for  the  options  KQ  = 9 and  12  used  in  the  cross  section 
computations,  it  may  happen  that  the  cross  section  values 


for  some  pair  of  species  with  indices  < N are  to  be  coti- 
puted  from  values  obtained  previously  for  scxne  other  spec- 
ies pair  involving  a species  with  index  > N.  Statements  ■ 

110  to  140  check  for  this  possibility,  again  using  subrou- 
tine BXSECT  to  search  for  those  steps  in  the  cesnputation 
with  KQ  = 9 or  12.  (Note  that  the  coding  here  assumes 
that  L = 0 when  statement  110  -is  reached.  This  is  always 
true,  since  statement  110  can  only  be  reached  frexu  the  IF 
statements  following  statements  100  and  290.)  If  this 
search  does  not  reveal  any  pair  of  species  with  an  index 
> N which  affects  the  cross  section  confutations  for  species 
with  indices  < N,  then  it  is  possible  to  omit  all  species 
with  indices  > N from  the  cross  section  ccxnputations  with- 
out affecting  the  values  'of  the  calculated  transport  prop- 
erties, and  control  passes  at  once  to  statement  300.  If, 
on  the  other  hand,  some  species  pair  (LL,J)  with  an  index 
greater  than  N is  found  which  affects  the  computations  for 
indices  ^ N,  then  the  search  for  further  such  pairs  is  tem- 
porarily discontinued  and  the  code  immediately  begins  look- 
ing for  a \my  to  include  the  pair  (LL,J)  in  the  computations. 
The  first  approach  considered  is  to  treat  the  cross  sections 
for  the  pair  (LL,J)  as  an  intermediate  step  in  the  compu- 
tation of  the  cross  sections  for  the  species  with  indices 
< N,  and  to  fill  the  computed  cross  sections  for  this  pair 
into  some  unused  location  (II, JJ)  of  the  cross  section  array 
for  species  < N,  where  JJ  < II  < N,*  Statements  140  to  150 
look  for  such  a location,  using  the  previously  set  array 
Q(1,II,JJ)  as  a flag  to  indicate  which  locations  are  avail- 
able. 


If  a suitable  location  for  intermediate  storage  of  the 
pair  (LL,J)  is  not  found  in  statements  140  through  150, 
then  the  following  section  of  code  down  to  statement  190 
increases  the  number  N of  species  to  be  included  in  the 
cross  section  computations  by  one,  rearranges  the  list  of 
species  I(J)  for  the  edited  cross  section  data  so  that  the 
species  corresponding  to  the  maximum  index  of  the  pair  (LL,J) 
will  be  the  new  species  included  in  the  cross  section  confu- 
tations (note  that  by  definition  this  species  was  not  included 


♦Remember  that  only  species  with  II  ^ JJ  are  used  in  the 
transport  calculations. 
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in  the  romputations  previously),  and  then  returns  control 
to  statement  40  to  begin  the  preparation  of  the  edited 
cross  section  data  again  from  the  beginning,  using  the  new 
arrangement  of  species  I(J).  If  this  procedure  would  lead 
to  a value  of  N > 20,  ho\i?ever,  so  that  the  dimensions 
allowed  for  the  cross  section  computations  in  the  code 
would  be  exceeded,  it  is  not  carried  out  and  control  passes 
instead  to  statement  540  where  a diagnostic  message  is 
printed  c.iid  the  error  indicator  ERR  is  set  to  terminate 
the  case.  If  more  than  50  species  were  specified  in  the 
master  species  list,  the  case  may  also  be  terminated  by 
reaching  the  G0  10  540  statement  after  statement  180. 


When  the  statements  fran  140  through  150  are  success- 
ful in  finding  an  unused  location  (II, JJ)  which  can  be  use?, 
for  storing  the  cross  sections  of  the  species  pair  (LL,J), 
control  passes  to  statement  190,  where  the  value  of  Q(l, II,JJ) 
is  immediately  set  to  1.0  to  indicate  that  the  pair  (II, JJ) 
is  now  being  used  in  the  cross  section  confutations.  The 
following  statements  down  to  statement  300  then  revise  the 
edited  cross  section  chta  in  common  block  /TRANS7/  to  change 
all  references  to  the  pair  (LL, J)  to  (II, JJ) . To  carry  out 
this  revision  without  changing  the  values  of  the  computed 
cross  sections,  any  steps  in  the  computation  which  use  the 
pair  (LL,J)  in  the  empirical  mixing  rule  KQ  = 10  must  also 
be  converted  in  the  revision  process  to  use  the  generalized 
mixing  rule  KQ  = 12.  Tl.is  conversion  is  carried  out  by  the 
coding  dovm  through  the  statement  NKQ=NSV  after  statement 
270,  The  code  firct  searches  through  all  steps  L of  the 
cross  section  computations  to  find  any  steps  using  the  op- 
tion KQ  = 10  which  refer  to  the  pair  (LL, J) . This  may  occur 
/n  two  ways:  either  the  species  pair  (LL,J)  may  be  a non— 

t-iagonal  pair  (i.e.,  LL  J)  which  is  confuted  with  the 
option  KQ  = 10  at  some  step  of  the  computations,  or  it 
may  b'  a diagonal  pair  (i.e.,  LL  = J)  which  is  used  in  the 
option  KQ  = 10  to  compute  the  cross  sections  for  some  non- 
diagonal pair  involving  the  species  LL.  Both  of  these 
possibilities  are  checked  for  by  the  IP  statement  below 
statement  200,  and  if  either  is  found  the  following  state- 
ments then  revise  the  edited  cross  section  data  in  common 
block  /TRANS7/  to  convert  the  computation  for  the  given 
species  pair  to  the  option  KQ  = 12,  This  is  accomplished 
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by  inserting  the  required  data  for  the  KQ  » 12  option  into 
the  KQ,  NQ,  IQj  JQ  cind  V arrays  just  ahead  of  the  data  for 
the  step  L which  originally  computed  the  cross  section, 
and  moving  the  remaining  data  in  these  arrays  down  to  make 
room  for  the  new  data.  The  original  option  KQ  = 10  is  re- 
tained in  the  data  immediately  following  the  new  KQ  = 12 
option,  but  is  no  longer  applied  to  that  species  pair  for 
which  the i Q=12  option  is  being  used.  The  values  of  MMV,  NKQ 
and  L are  also  adjusted  to  agree  with  the  revised  data.  In 
these  computations,  subroutine  BXSECT  is  used  to  locate 
the  position  MM  in  the  V array  at  which  the  new  data  are 
to  be  inserted.  This  is  done  by  replacing  NKQ  by  L in 
common  block  /TRANS7/,  so  as  to  cause  BXSECT  to  end  its 
search  of  the  KQ  array,  when  step  L is  reached.  The  true 
value  of  NKQ  is  saved  in  the  variable  NSV  throughout  this 
section  of  the  code  and  is  restored  to  its  proper  location 
at  the  end  of  the  section. 

After  the  required  conversions  from  KQ  = 10  to  KQ  = 12 
have  been  made,  control  passes  to  the  section  of  code  be- 
tween card  XSE  213  and  statement  300,  v/hich  changes  all 
references  to  pair  (LL,J)  in  the  IQ,JQ,  and  V arrays  to 
refer  to  the  pair  (II,JJ)  instead,  using  the  same  algo- 
rithms as  were  used  previously  in  rearranging  the  species 
in  statements  40  through  110.  V?hen  these  changes  have  been 
completed,  control  returns  again  to  statement  110  and  the 
code  again  searches  the  edited  cross  section  data  for  a 
pair  of  species  with  an  index  > N which  affects  the  cross 
section  computations  for  species  with  indices  < N.  If  such 
a pair  is  foxind,  it  is  eliminated  from  the  edited  cross 
section  data  as  described  above,  and  the  whole  process  is 
repeated  until  either  all  species  pairs  with  indices  > N 
which  affect  the  cross  sections  for  species  ^ N have  been 
eliminated  from  the  data  and  control  passes  to  statement 
300,  or  else  the  procedures  used  in  the  code  are  unable  to 
eliminate  a species  pair  and  cause  the  case  to  be  terminated 
as  described  above. 

By  the  time  control  reaches  statement  300  in  subrou- 
tine XSECT,  the  edited  cross  section  data  have  been  put 
into  such  a form  that  all  cross  section  confutations  in- 
volving species  with  indices  greater  than  N can  be  omitted 
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without  changing  the  values  of  the  computed  cross  sections 
for  the  species  with  indices  < N,  The  revision  of  the  data 
to  canit  these  computations  is  carried  out  by  statements  300 
to  380.  The  pairs  of  species  for  which  cross  sections  are 
computed  at  each  step  of  the  computations  are  given  in  the 
IQ  and  JQ  arrays,  so that  the  steps  to  be  deleted  from  the 
ccMiiputations  can  be  determined  simply  by  searching  the  IQ, 

JQ  list  for  pairs  in  which  at  least  one  of  the  indices  IQ 
or  JQ  is  > N,  This  search  is  performed  by  the  preliminary 
loc^  ending  at  statement  310,  and  the  value  of  IQ  for  each 
pair  which  is  to  be  deleted  is  set  to  0 as  a signal  for  the 
sxabsequent  calculations. 

To  determine  the  required  revision  of  the  KQ,  NQ,  and 
V arrays  in  the  edited  data,  ic  is  necessary  to  establish 
the  correspondence  between  these  arrays  and  the  IQ,  JQ 
arrays.  This  is  done  and  the  arrays  are  revised  in  the  loop 
over  the  steps  L of  the  cross  section  computation  which  ends 
at  statement  370.  For  each  step  L of  the  computations,  the 
small  loop  ending  at  statement  320  determines  the  correspon- 
dence to  the  IQ,  JQ  list  and  calculates  the  total  nmiber  of 
species  pairs  NEWIQ  which  are  not  deleted  up  through  step 
L,  This  number  is  the  new  value  of  NQ  for  the  step. 

The  second  statement  below  330  is  the  test  to  deter- 
mine whether  the  current  step  L of  the  computations  wiU  be 
omitted  from  the  revised  data.  The  test  compares  the  current 
value  of  NEWIQ  with  the  value  for  the  previous  step;  if  these 
two  values  are  equal,  it  indicates  that  the  current  step  of 
the  computations  wxll  not  apply  to  any  species  pairs  in  the 
IQ,  JQ  list  after  the  deletions  are  made,  so  that  the  step 
can  ordinarily  be  omitted  from  the  revised  data  without  af- 
fecting the  computed  cross  sections.  However,,  for  the  op- 
tion, KQ  = 10  the  step  is  not  omitted,  even  though  it  does 
not  apply  to  any  species,  since  it  may  be  required  subse- 
quently in  supplying  the  default  data  for  the  cross  sections, 
as  described  below. 

The  edited  cross  section  data  for  those  steps  which  are 
not  to  be  omitted  from  the  computations  are  placed  in  their 
proper  locations  in  the  revised  KQ,  NQ,  and  V arrays  by  the 
coding  from  the  third  statement  below  330  down  to  the 


statement  before  360.  Since  the  revised  arrays  in  this  stage 
of  the  calculations  are  always  shorter  than,  or  at  most  equal 
to,  their  initial  length,  this  revision  can  be  carried  out 
entirely  within  the  arrays  themselves,  without  disturbing 
subsequent  steps  in  the  revision.  The  indices  L and  MV 
here  indicate  the  positions  of  the  data  in  the  initial  ar- 
rays, while  NEWL  and  NEWMV  are  their  positions  after  the  de- 
sired omissions  have  been  made.  It  may  be  noted  further  in 
connection  with  this  calculation  that  no  data  need  be  added 
to  the  revised  V array  for  KQ  = 10, since  this  option  requires 
no  values  for  V in  its  operation.  Also  the  number  of  V 
parameters  NV(K)  required  by  each  option  is  obtained  from 
preset  data  in  the  code.  For  steps  which  are  omitted  from 
the  computations,  of  course, no  data  need  be  added  to  the 
KQ,  NQ,  and  V arrays;  however,  the  total  number  of  steps 
NKQ  in  the  computations  is  reduced  by  1 by  statement  360. 

Once  the  revision  of  the  KQ,  NQ,  and  V arrays  has  been 
completed,  the  revision  of  the  IQ  and  JQ  arrays  is  completed 
in  the  loop  ending  at  statement  380  by  deleting  the  unwanted 
species  pairs  and  moving  the  remaining  pairs  up  to  fill  in 
any  resulting  gaps.  This  process  completes  the  editing  of 
the  cross  section  data  to  remove  unnecessary  steps  in  the 
computations  which  was  begun  at  statement  110  of  the  sub- 
routine, and  provides  a set  of  edited  cross  section  data 
which  will  give  the  same  computed  cross  sections  as  the 
original  input  data  for  all  species  included  in  the  current 
gas  model,  but  which  includes  only  data  for  the  N species 
for  which  cross  sections  are  to  be  calculated,  and  omits 
all  data  for  other  species  which  may  have  been  included  in 
the  input  or  the  precoded  data. 

3,69,4  Default  Options 

The  final  section  of  subroutine  XSECT,  following  state- 
ment 380,  is  for  the  purpose  of  providing  cross  section 
data  according  to  the  default  options  discussed  in  Section 
4,6  of  Volume  II  (ref.  2)  for  any  pairs  of  species  included 
in  the  transport  calculations  for  which  data  were  not  sup- 
plied in  the  input.  These  data  are  added  to  the  edited 
cross  section  data  in  common  block  /TRANS7/  to  provide  a 
complete  set  of  data  for  the  later  cross  section  computa- 
tions in  subroutine  PUTQIN, 
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The  first  section  of  coding  below  statement  380  sup- 
plies data  for  computing  the  unspecified  neutral- neutral 
cross  sections  in  the  gas  mixture  from  the  empirical  mix- 
ing rule,  equation  1(102).  These  data  are  added  to  the 
edited  cross  section  data  at  the  last  step  in  which  the 
option  KQ  = 10  is  used,  or,  if  this  option  is  not  used  at 
all  in  the  data,  after  the  last  step  of  the  ^ecified  data. 
This  procedure  has  been  adopted  in  the  code  to  permit  data 
on  the  resonant  contributions  to  the  neutral-neutral  cross 
sections  to  be  specified  after  the  last  step  in  the  confu- 
tations using  KQ  = 10,  without  affecting  the  values  of  the 
default  cross  section  computed  from  the  mixing  rule  1(102). 

The  coding  from  statement  380  down  to  statement  400 
determines  the  step  LL  in  the  cross  section  computations 
at  which  the  unspecified  neutral-neutral  cross  sections 
are  to  be  added  to  the  data.  If  no  step  with  KQ(LL)  = 10 
is  found  in  the  data,  an  additional  step  is  added  for  this 
purpose  at  the  end,  and  the  value  of  NQ(LL)  for  this  step 
is  set  to  NQ(LL-l),  since  as  yet,  the  step  does  not  apply 
to  any  pairs  of  species  in  the  IQ,  JQ  list.  The  statements 
from  400  through  420  then  determine  the  charge  IZ,  in  units 
of  the  electronic  charge,  for  each  of  the  species  in  the 
transport  calculations , using  data  from  the  common  array 
LPIJ  containing  the  matrix,  and  test  the  value  of  IZ 

to  determine  which  are  the  neutral  species.  When  no  elec- 
trons are  present  in  the  gas,  (i.e.,  lELEC  = 0),  all  spec- 
ies are  assvimed  to  be  neutral  and  IZ  is  not  set.  Since 
tl-ie  correspondence  I(J)  which  was  previously  established 
between  the  master  species  list  for  the  code  and  the  spec- 
ies in  the  transport  property  calculations  is  now  no  longer 
needed,  the  array  1 is  now  used  to  store  the  indices  of 
the  neutral  species  for  later  reference.  Since  no  default 
option  has  been  established  in  the  code  for  the  computation 
of  cross  sections  for  the  collisions  of  a neutral  species 
with  itself,  the  code  tests  each  neutral  species  to  deter- 
mine whether  these  data  have  been  specified  in  the  input 
and  if  they  have  not,  terminates  the  case  by  transferring 
control  to  statement  540. 
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Once  the  neutral  species  have  been  detemined,  the 
code  calls  subroutine  AXSECT  to  add  the  required  data 
for  these  species  to  the  edited  cross  section  data  in 
common  block  /TRANS7/.  Subroutine  AXSECT  then  takes  the 
list  of  neutral  species  stored  in  the  I array  and  tests  all 
pairs  (J,K)  with  J K,  using  the  previously  set  value*? 
of  the  common  variable  Q(1,J,X)#  to  determine  those  pairs 
for  whicn  cross  section  data  have  not  previously  been  sup- 
plied.  All  such  pairs  found  in,  this  search  are  then  adds 
to  the  IQ,  JQ  list  at  the  LL^h  step  of  the  cross  section'? 
computations,  the  values  of  the  Q(1,J,K)  for  the  added 
pairs  are  set  to  1.0,  and  the  IQ,  JQ,  and  NQ  lists  are 
appropriately  revised  to‘  take  account  of  these  additions. 

In  these  calculations  subroutine  AXSECT  assumes  that  the 
species  to  be  tested  are  stored  in  numerical  order  in  the 
I array,  and  that  NQ(LL)  has  been  properly  set  prior  to 
entrance  into  the  subroutine. 

After  completing  the  specification  of  the  neutral- 
neutral  cross  sections,  the  code  next  goes  on  to  add 
data  specifying  the  unspecified  ion-ion  cross  sections 
to  the  edited  cross  section  data.  The  three  statments 
immediately  preceding  statement  430  establish  a location 
in  the  edited  data  for  the  insertion  of  these  cross  sec- 
tions. If  the  last  step  NKQ  in  the  current  ve-;sion  of 
the  data  is  not  presently  being  used  in  the  cross  secticn 
computations,  it  is  used  for  the  new  daua,  while  if  it 
is  being  used,  an  additional  step  is  added  to  the  compu- 
tations at  the  end  of  the  current  data  for  the  insertion 
of  the  new  data. 

The  loop  from  statements  430  to  480  adds  data  for  com- 
puting effective  Coulomb  cross  sections  1(100)  for  the  un- 
specified ion-ion  collisions  to  the  edited  cross  section 
data.  The  coding  of  this  loop  is  set  up  to  cause  control 
to  pass  through  the  block  of  statements  from  440  to  460 
five  times.  For  the  case  in  which  electrons  are  present 
(XEEEC  = 1),  the  values  of  the  indices  at  each  passage 


through  this  block  are  shown  in  Table  III,*  For  each 
passage  through  the  block,  the  loop  ending  at  state- 
ment 450  stores  some  of  the  species  included  in  the 
transport  property  calculations  in  the  array  I,  the 
e::act  species  which  are  chosen  depending  on  the  values 
of  the  indices  for  that  passage.  Thus,  referring  to 
Table  III,  the  array  I consists  of  all  singly  charged  ions 
in  the  transport  calculations  for  the  first  passage 
through  the  loop,  all  singly  charged  ions  plus  electrons 
for  the  second  passage,  and  so  forth.  The  call  to  XSECT 
following  statement  450  then  finds  all  pairs  of  the  spec- 
ies in  the  1 array  for  which  cross  sections  nave  not 
been  previously  specified,  and  revises  the  edited  cross 
section  data  ro  include  these  pair-  in  the  NKO^^  step 
of  the  computations.  After  returning  to  subroutine 
XSECT,  the  code  checks  to  see  whether  any  uaispecified 
pairs  were  actually  found  by  subroutine  AXSECt  in  this 
search,  and,  if  tney  were,  supplies  values  of  the 
parameters  KQ  and  V for  the  step  which  are  appropri- 
ate for  the  effective  Coulonvb  potential  UlOO)  from 
the  preset  array  VC0UL,  and  then  adds  another  new  step 
at  the  end  of  the  computations  to  prepare  for  storage 
of  the  next  set  of  cross  section  data.  The  number 
of  entries  NEWMV  in  the  V array,  which  was  set  origi- 
nally in  the  loop  ending  at  statement  340,  is  also 
revised  to  conform  to  the  raw  data.  Thus,  the  first 
passage  through  statements  440  to  460  sets  the  cross 
sections  for  all  unspecified  pairs  of  singly-charged 
ions  to  the  effective  Coulomb  cross  sections  given 
for  singly-charged  ions  in  equations  I (100a).  The 


♦Note  that  for  lELEC  = 0,  all  species  are  assumed  to 
be  neutral  so  that  all  the  unspecified  cross  sections 
were  previously  set  in  treating  the  neutral-neutral 
interactions.  Thus,  no  cross  sections  remain  to  be 
set  in  the  present  loop  and  the  edited  cross  section 
data  are  accordingly  unaffected  by  the  loop,  indepen- 
dent of  the  values  of  the  indices. 


table;  III 

INDICES  USED  FOR  CALCULATION  OF  EFFECTIVE  COULOMB 
CROSS  SECTIONS  IN  SUBROUTINE  XSECT 


Passage 

Species  pairs 

nxiitiber 

for  v/hich 

through 

Species  in 

cross  section  data 

loop  J KK  JJ 

IE  I e :ray* 

are  supplied* 

*Tlie  notatxon  e xndxcates  electrons,  1 xndxcates  sxngly 
charged  ions,  and  2 indicates  doubly  charged  ions. 
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i I second  passage  then  sets  the  cross  sections  for  all  un- 

specified pairs  involving  either  singly-chairged  ions  or 
electrons;  but,  since  the  ioi-ion  cross  sections  were 
already  set  in  the  previous  passage,  only  electron-electron 
and  electron-ion  cross  sections  are  actually  set  in  this 
passage.  From  equations  I(lOOa)  one  sees  that  the  effec- 
tive Coulomb  cross  sections  for  electron-electron  and  elec- 
tron-ion collisions  are  the  same  (for  singly  charged  ions) , 
so  that  both  types  of  cross  sections  can  ,oe  set  in  a single 
step  of  the  computations.  Similarly,  the  last  three  pas- 
sages through  the  loop  set  the  unspecified  cross  sections 
involving  doubly— charged  ions  to  the  values  indicated  in 
equations  I (100a),  as  sho\iai  in  Table  III.  Thus,  when  all 
five  passages  through  the  loop  have  been  completed,  cross 
sections  will  have  been  ^ecified  in  the  edited  cross  sec- 
tion data  for  all  pairs  of  charged  species  to  be  included 
in  the  transport  calculations,  up  through  doubly  ionized 
species.  Further,  it  should  be  noted  that  the  last  step 
NKQ  in  the  edited  data  at  this  stage  of  the  calculations 
will  be  an  enpty  position  which  is  not  used  in  specifying 
the  cross  sections  but  is  available  for  the  addition  of 
further  data. 

The  preset  coding  of  subroutine  XSECT  does  not  pro- 
vide any  default  option  for  specifying  the  cross  sections 
of  ions  which  are  triply  charged  or  higher.  Thus  th.  sec- 
tion of  code  following  statement  480  do\^  through  the  IF 
statement  below  statement  490  checks  for  unspecified  ion- 
ion  cross  sections  for  species  with  higher  than  double  ion- 
ization, and,  if  any  are  found,  terminates  the  case.  Other- 
wise, the  next  three  statements  below  the  IF  statement  add 
all  so  far  vinspecified  pairs  of  species  in  the  transport 
property  calculations  to  the  final  step  NKQ  of  the  cross 
section  computations.  Since  all  neutral- neutral  and  ion- 
ion  cross  sections  have  previously  been  specified,  the 
cross  sections  added  at  this  step  are  necessarily  all 
neutral-ion  cross  sections.  If  any  such  cross  sections 
are  added,  pareimeters  are  then  added  to  the  KQ  and  V arrays 
to  compute  them  from  an  inverse  fifth  power  potential 
(KQ  = 6) , using  the  data  on  the  magnitude  of  the  cross 
sections  stored  in  the  array  locations  0MEGA1(996),  ASTAR 
(996),  and  BSTAR(996)  in  common  block/TRANS4/.  For  the  preset 
data  used  in  the  code,  this  results  in  the  cross  sections  for 
the  added  pairs  being  set  equal  to  the  corresponding  N-O'*'  cross 
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sections.  On  the  other  hand, if  no  unspecified  neutral  cross  sec- 
tions are  found, these  data  are  not  added  and  the  value  of  NKQ  is 
reduced  by  one  to  eliminate  the  unused  step  at  the  end  of 
the  cross  section  computations. 

The  above  calculations  complete  the  preparation  of 
the  edited  cross  section  data  in  common  block  /TRANS7/. 

The  number  of  steps  NKQ  in  the  con5>utations  is  now  checked, 
and  if  it  does  not  exceed  the  maximum  allowed  by  the  pro- 
gram dimensions  (NKQ  - 100) , control  is  returned  to  sub- 
routine TRANSP.  Otherwise  the  case  is  teirminated  by  a 
transfer  to  statement  540. 

In  their  final  version,  the  edited  cross  section  data 
prepared  by  subroutine  XSSCT  specify  the  procedures  to  be 
used  in  confuting  all  of  the  cross  sections  required  for 
the  transport  property  calculations  in  a given  case,  and 
are  in  a form  suitable  for  later  use  by  subroutine  PUTQIN 
and  its  associated  subroutines  in  the  actual  ccxnputation  of 
these  cross  sections.  These  data  are  in  their  final  form 
v/hen  control  returns  from  subroutine  XSECT,  and  are  not  al- 
tered by  the  code  in  the  svibsequent  tra.nsport  property  cal- 
culation:: until  XSECT  is  called  again  to  prepare  a new  set 
of  edited  cross  section  data  for  another  case. 
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4.  GLOSSARY  OF  FORTRAN  SYMBOLS 

This  section  presents  a complete  glossary  of  Fortran 
symbols  for  the  NATA  code.  Symbols  appearing  in  common 
are  listed  first,  followed  by  the  remaini.^g  symbols  in 
individual  routines.  The  order  is  as  follows:  unlabelled 

common,  labelled  common  in  alphanumeric  order  of  the  block 
names,  main  program,  subroutines  and  functions  in  alpha- 
numeric order.  The  variables  in  each  common  block  are 
listed  in  the  order  in  which  they  appear  in  the  block. 

The  non-common  variables  are  listed  in  alphanumeric  order 
for  each  routine.  The  mathematical  notation  is  as  defined 
in  Volume  I (ref.  1) . The  list  for  unlabelled  common 
includes  some  variables  which  are  equivalenced  to  variables 
in  unlabelled  common. 

4.1  Unlabelled  Common 

Matrix  of  coefficients  and  constants  for  a 
system  of  simultaneous  linear  equations 

Equivalent  to  AA{I,J) 

Matrix  of  coefficients  j expressing 

the  dependent  species  in  terms  of  the  c 
independent  species 

Mole  fraction  Xj  for  the  species 

Species  concentrations  in  moles  per  gram  of 
mixture; equivalenced  to  CAPX(J) 

oi  , constant  in  the  density-area  relation 
1(383) 

Effective  area  ratio  calculated  for  equilibrium 
flow  in  the  nonequilibrium  solution  by  the 
perturbation  method 

Effective  area  ratio,  Ag 

Mach  number 


/ 

‘ ; 


4 


AA(I,J) 

AAA(I,  J) 
CDIJd,  J) 

CAPX  ( J) 
GJ(J) 

A 

APNTS 

AFNX 

AMACH 
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1 


I 


AR 


ARBA 


ARBB 

BZER0 


C 


Indicator  (initially  0)  which  is  set  to  1 
when  d-jfnAg/dx  becomes  positive  downstream 
of  the  throat  in  the  nonequilibrium  solution 
by  the  inverse  method. 

Maximum  allowable  number  of  tries  at 
switching  from  upstream  to  downstream  region 
in  nonequilibrium  solution 

Counter  for  number  of  times  upstream-downstream 
switching  point  is  moved  downstream 

bQA/®«  where  bQ  is  the  covolume  of  the 
molecules  in  the  high-density  modification 
of  the  equation  of  state  and  W®  is  the 
molecular  weight  of  the  undissociated  gas. 

Constant  C in  density-area  curvefit  relation 
1(383) 


CARB 

CH 


CHA 

CLNT 

CM 

CMA 

CRA 

CRP 

CRRB 


Effective  area  ratio  at  the  beginning  of 
the  current  integration  step 

Nondimens ional  specific  enthalpy,  hWQ/RQTQ, 
where  h = specific  enthalpy,  Wq  = reservoir 
molecular  weight,  Rq  = universal  gas 
constant,  Tq  = reservoir  temperature 

Nondiraenr ional  specific  enthalpy  in  the 
reservoir 

o 

in  T,  where  T = temperature  in  K 

Molecular  weight  of  gas  mixture,  W ( g/mole) 

Molecular  weight  in  reservoir,  Wq  (g/mole) 

Rq,  universal  gas  constant  (1.9872  cal/mole 
°K) 

RqTq,  where  Tq  = reservoir  temperature  (°K) 
Intermediate  variable  in  calculation  of  entropy 
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1 


CRS 

CSTA 


CT 

CTAP 

CTB 

CTC 

CTMAX 

CTMXX 

CTP 

CTPL 

CTT 

CX 

CXB 


CXMAX 


Dummy  variable  for  entropy 

0.5^  (Wo/Rq'^O^  ' where  Wq  is  the  reservoir 
molecular  weight  ( g /mole) , Rq  the  universal 
gas  constant,  and  Tq  the  reservoir  tempera- 
ture (°K) 

Ratio  of  the  temperature  to  the  reservoir 
temperature,  t/Tq 

Reservoir  temperature,  Tq  (°K) 

Dummy  variable  for  CT 

Dummy  variable  for  CT 

Ratio  of  throat  temperature  to  reservoir 
temperature 

Temperature  for  switching  from  thermo-fit  to 
physical  model  for  species  properties, 
divided  by  reservoir  temperature 

Temperature  in 

/n  Tq 

CT  at  the  last  printed  step  of  the  non- 
equilibrium solution 

Streamwise  coordinate  x(cm),  zero  at  the 
throat  and  positive  downstream 

CX  at  the  beginning  of  the  current  integration 
step 

Maximum  allowable  value  of  x(cm) 


DATEST  Value  of  effective  area  ratio  at  which 

nonequilibrium  solution  is  switched  from 
upstream  to  downstream  region 

DBTEST  (Not  used) 
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DELTl 


Nondimens ional  temperature  decrement  used  in 
frozen  and  equilibrium  solutions 

(Not  used) 


I 


DELT2 

DELTAX 

DL0GA 

DL0GR 

DT 

ENT 

FLUX 

HDELX 

per 

POTEST 

PRES 

PRESA 

PRESB 

PRESTH 

PRH0 

RHAP 


Increment  in  x (cm) 
d Ag/dx 

d A (p/pQ)  /6x,  logarithmic  derivative  of 
nondimans ional  density 

dCi^'Tfp/lDX,  gradient  of  nondimens  ional  tempera 
ture 


Intermediate  variable  used  in  frozen  flow 
solution 

Nondimens  ional  mass  flux,  (/>//^0^  *u//RqTo/Nq 
DELTAX/2 


<5(T/Tq)»  perturbation  in  nondimens  ional 
temperature 

Tolerance  on  when  testing  size  of  <5 
Nondimens ional  pressure,  p/Pq 
Reservoir  pressure  Pq  (atm) 

Nondimens ional  pressure  at  the  preceding  flow 
point;  used  in  Mach  number  calculation 

Nondimens ional  pressure  at  throat 

Perturbation  in  nondimens ional  density. 


Density  in  reservoir. 


/Oq  ( g/cm3) 
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RH(2f 

RH0B 

RH0BAR 

RH0C 

RH0P 

RHPL 

RHTH 

R0BARA 

R0BARP 

SCPG 

SDT 

SEN 

SHPG 

SC 

SL 

SL64 

SM 

SU 


Nondimens ional  density, 

RH0  at  the  preceding  flow  point;  used  in 
Mach  number  calculation 

Effective  density  in  high-density  equation  of 
state  divided  by  effective  reservoir  density 

(Not  used) 

Density  in  gm/cm^ 

^n  p 

Nondimens  ional  density  at  throat, 

Effective  density  in  reservoir,  p^  (gm/cm^) 
j 

Change  in  nondimens ional  temperature  in 
integration  interval 

Entropy  in  cal/g  °K 

SjT-jH./RoTo 

Factor  by  which  integration  interval  is 
increased 

Characteristic  length,  , now  set  at  1 cm 

1//F,  where  F is  the  conversion  factor  from 
calories  to  ergs 

Nondimensional  mass  flux  at  the  throat, 

RHTH*  (SU)  * 

Nondimensional  velocity,  u \/Wq/RqTq 
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I 

I 

f 


I 

£ 

I 


r • 

1 


SU2 

SUMG 

TEST 


TESTS 


(SU)2 

S'/, 

Convergence  criterion  value  for  Newton- 
Raphson  iterations  in  calculations  of 
thermochemical  equilibrium 

Tolerance  allowed  in  locating  temperature  at 
throat  for  frozen  and  equilibrium  flow 


TPRINT 


TST0P 


Nondimensional  temperature  interval  at  which 
results  of  nonequilibrium  calculation  are  to 
be  printed 

Minimum  value  of  nondimensional  temperature 
desired  in  solution 


UP 


(Not  used) 


ZP 


Natural  log  of  nondimensional  pressure 


ZPA 

BE(I) 

BET (I) 
BLBK(I) 

CAI(I) 

CAPQ(I) 

CAPXTH  ( J) 
CCI ( J) 


Natural  log  of  reservoir  pressure  in  atm 

i = Pi  j 


Temporary  storage  area  for  boundary  layer 
prc  parties  at  the  switch  point  from  the 
upstream  to  downstream  solutions 

Ai«  constant  factor  in  reaction  rate  formula 

Number  of  gram  atoms  of  the  chemical 
element  per  mole  of  the  cold  gas;  equivalenced 
to  BLBK(I) 

X.  , mole  fraction  of  J " species  at  threat 

Temporary  storage  used  ii.  calculation  of 
species  molecular  weights;  equivalenced  to 
CAPXTH (J) 
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CCP J ( J) 

Molar  heat  capacity  of  the  species 

divided  by  Rq 

CEACT(I) 

Activation  energy  for  i reaction  (cal/mole 

°K) 

CGI (I) 

Species  molecular  weights  (g/mole) 

CGMU(I) 

^n  X^,  logarithms  of  mole  fractions 

CHI (I) 

Xi»  variable  measuring  the  departure  of  the 
ith  reaction  from  equilibrium,  eq.  1(289) 

CHII(I) 

Intermediate  variables  in  computation  of 
equilibrium  constant  based  on  mole  fractions 

CLNIMC(I) 

in  (1  - %.) 

CLNPI(I) 

-^n  Pj^,  variables  in  nonequilibrium  solution 

CMW(I) 

Atomic  weights  of  elements  (g/mole) 

DGJ ( J) 

d Tj/dx;  equivalenced  to  GJA(J) 

ETAI(I) 

V)  temperature  exponent  in  rate  constant 

for  i^l^  reaction 

ETAJ(J) 

Hj,  number  of  atoms  in  a molecule  of  the 
species;  0 value  indicates  no  physical  model 
data  for  thermal  properties 

GJA(J) 

Tjo»  concentration  of  species  in 

reservoir 

GJB(J) 

GJ(J)  at  the  beginning  of  the  current 
integration  step 

PERTGJ(J) 

S , perturbations  in  species  concentrations 

PGJ(J) 

Intermediate  variables  in  Newton-Raphson 
calculation  of  equilibrium  composition. 
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PI(I) 

PICHI(I) 

QM(I) 

QQ(I) 

SAJ ( J) 

SBJ(J) 

SDCHI(I) 
SDGJ(J) 
SENT ( J) 
SHJ(J) 
SHJA ( J) 

SHJAP ( J) 
SKIL(I) 

SS(J) 

TB(J) 

TFA  ( J) 


Variables  P^^  in  nonequi librium  solution, 
eq.  1(288) 

Pi  ATi 

Number  of  moles  q-  of  the  independent 

species  in  one  mole  of  mixture 

1 if  a third-body  list  is  provided  for  the 
ith  reaction,  0 if  not 

bj  + (1.5  + nj)i'nTQ,  constant  in  physical- 
model  expression  for 

b^ , eqs.  (51),  Vol.  I;  equivalenced  to 
SAJ(J) 

<5  perturbation  in  2 ^ 

Change  in  "Xj  over  an  integration  step 

Nondimens ional  species  entropy,  Sj'^/RQ 

Nondimens ional  species  enthalpy,  Hj/RQTQ 

Nondimens ional  formation  enthalpy  of 
species,  H^q/R^^Tq 

Formation  enthalpy  of  species,  cal/mole 

Intermediate  variable  in  calculation  of 
dependent  species  concentrations  from 
concentrations  of  independent  species 

Hn  logarithms  of  reservoir  species 

concentrations 

Temporary  storage  for  cpantities  necessary 
to  restart  a step  in  the  nonequilibrium 
calculation 

a-,  coefficient  in  thermo-fit  expressions 
for  Hj  and  |UjO 
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TFB(J) 

bj,  coefficient  in  thermo-fit  expressions 
Hj  and 

for 

TFC(J) 

C-,  coefficient  in  thermo-fit  expressions 
Hj  and 

for 

TFD(J) 

d^ , coefficient  in  thermo-fit  expressions 
Hj  and 

for 

TFE(J) 

e.,  coefficient  in  thermo-fit  expressions 
nj  and  |^j°/T 

for 

TFK(J) 

k-,  coefficient  in  thermo-fit  expressions 
Hj  and  |Xj° 

for 

THEV(J) 

Nondimensional  characteristic  vibrational 
temperature,  Q^j/TQ 

THEVP ( J) 

Characteristic  vibrational  temperature  for 
jth  species,  0^j  (^K) 

XMJAT  ( J) 

XNUI  (I) 

V'ji^j/Sum  of  stoichiometric  coefficients 
on  the  reactant  side  of  the  i^^  reaction 

BETA (I, J) 

/^ij  ~ v'ij  - 

BTA  (I,  J) 

Equiyalenced  to  BETA(I,J)y  not  used 

ELJ(L,J) 

Nondimensional  energy  of  electronic 

level  of  species,  E^j/RQTQ 

GELJ  (L,  J) 

Degeneracy  of  electronic  level  of 

species,  g^^ 

XNUIJd,  J) 

ly..,  stoichiometric  coefficient  of 
species  on  reactant  side  of  i^“  reaction 

XNUIJP(I, J) 

1 iU 

1 stoichiometric  coefficient  of  j 
species  on  product  side  of  i^^‘  reaction 

IC 

Number  of  ions  included  in  chemical  model 
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IM 


INEQ 

INEQV 

IP 

IRUN 

ISC 

ISCPl 
I SMC 

ISMCNR 

ISR 

ISS 

ISSNR 

ISSPl 

ISSP2 

ISSP3 

ISSP4 


/ 


Index  of  the  first  species  in  the  equilibrium 
flow  calculation,  incremented  when  electrons 
are  dropped  from  calculation 

Indicator  (initially  0) , reset  to  1 when 
numerical  integration  of  nonequilibrium 
solution  is  begun 

Indicator  for  selecting  whether  equilibrium 
(o)  or  frozen  (1)  vibrational  model  is  to 
be  used 

(Not  used) 

Run  number  for  identification 

Number  of  elements  in  mixture  (including  the 
electron,  if  ionized  species  are  included) 

ISC+1 

Number  of  species  minus  number  of  elements 
(n-c) 

Current  value  of  (n-c)  in  equilibrium  flow 
calculation  (decreased  by  IC  when  electrons 
are  dropped  from  the  calculation) 

r,  number  of  reactions 

n,  number  of  species 

Current  value  of  n in  equilibrium  flow 
calculation  (decreased  by  IC  when. electrons 
are  dropped  from  calculation) 

n+1 

n+2 

n+3 

n+4 
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1 


I 


, ISWIA 

ISWlB 
ISW2; 
ISV72B 
ISW3A 
ISW3B 
ISW4A 
ISW4B 

I 

ISW5A 

ISW5B 

ISW6A 

ISW6B 

; 


f 

i 


Input  control  variable;  0 suppresses  frozen 
solution 

Input  control  variable;  nonzero  value  gives 
edits  of  transport  cross  section  calculations 

Input  control  variable;  0 suppresses  non- 
equilibrium solution 

Input  control  variable;  selects  types  of 
input  data  for  reser'/oir  calculation 

Input  control  variable;  0 suppresses 
equilibrium  solution 

Input  control  variable;  0 suppresses  boundary 
layer  Cctlculations 

Input  control  variable;  must  be  nonzero  5.f 
another  case  follows,  0 for  last  case 

Input  control  variable;  nonzero  gives  dump 
in  boundary  layer  routine  BLAYER 

Input  control  variable;  nonzero  gives  dump 
tracing  the  execution  of  subroutine  RESTMP, 
which  computes  the  reservoir  temperature  from, 
mass  flow  and  reservoir  pressure  or 
stagnation  enthalpy 

Input  control  variable,  nonzero  gives  dump 
in  subroutines  EXACT,  COMM,  NONEQ  and  PRTA 
for  debugging  nonequilibrium  calculations 

Input  control  variable;  if  positive,  only 
the  reservoir  equilibrium  calculation  is 
done;  if  negative,  edit  of  species  thermal 
properties  is  produced 

Input  control  variable;  0 suppresses  the 
output  of  species  mole  fractions  in  the 
free-stream  and  model-point  output 
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lUPD 


IZER0 

JJK 

LC 

Ml 

ilFIT 

NIT 

HNN 

NNS 


Indicator  (initially  1),  reset  to  0 when 
switch  from  inverse  method  to  direct 
integration  is  made  in  nonequilibrium 
solution 

0 (set  in  READ) 

Indicator  (initially  0) , .eset  to  1 in 
NEWRAP  when  electrons  are  dropped  from  the 
equilibrium  calculation 

(Not  used) 

Index  equal  to  c+1 

Indicator.  0 if  thermo  fit  data  are  not  used 
for  any  species 

Counter  for  number  of  iterations  in  Newton- 
Raphson  procedure 

Integration  step  counter 

Number  of  times  Ax  has  been  increased  by 
current  value  of  SC 


NQS 


Number  of  successful  integration  steps 
before  Ax  is  increased 


NQT 


(Not  used) 


NTEST 


Number  of  iterations  allowed  in  Newton- 
Raphson  procedure 


IGJ(J) 

IGM(J) 


Indicator;  1 if  thermo-fit  data  are  used  for 
species,  0 if  not 

Number  of  electronic  levels  for  the 
species 


ITB(I) 


Temporary  storage  for  indices  necessary  to 
restart  step  in  nonequilibrium  calculation 
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KUR(I,J) 
LPIJ(I, J) 

AC0M(I) 

EUIENT(I) 

HP(I) 

SQRTA 

51 

52 

ATPI(J,I) 

PARAM(L,  J, 

RTHCM(I) 
NSECT (I) 
NSECTU(I) 
I£HAPE(J,I 


*"ATPI”  is 


Uj^j,  third  body  matrix 

O^ij.  number  of  atoms  of  i chemical 

element  in  a molecule  of  t»i^  species 

Hollerith  description  for  case 

Chemical  symbols  for  elements  (Hollerith) 

Symbols  for  species  (Hollerith) 

4.2  Common  /AEGE0M/ 

Square  root  of  the  geometric  area  ratio 

Geometric  area  ratio  (reset  to  the  effective 
area  ratio  in  AESOLN) 

Derivative  of  geometric  area  ratio  (reset 
to  derivative  of  the  effective  area  ratio 
in  AESOLN) 

4.3  Common  /AREA/ 

Downstream  boundary  of  the  section  in 
*-he  profile  (cm  from  the  throat, 
positive  downstreeun)  * 

For  L = 1 to  3,  the  parameter  values  for  the 
jth  section  in  the  profile.  See  Sec. 

4.3  of  Volume  I 

Throat  radius  (cm)  for  the  profile 
Number  of  sections  in  the  profile 
Number  of  upstream  sections  in  the  profile 

Shape  index  for  section  in  the  profile 


an  acronym  for  "area  transfer  point  input" 
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NPR0FL(I) 

NPRFLS 

NBL 

WSAVE 

DELBL (L) 

BLINT (L) 

XZER0 

TWMjL 

CPWALL 

VISR0T 

DITVM(L) 

SW 


I 

I 


Index  of  profile  in  Lhe  precoded  data; 

NPROFL(l)  is  equivalent  to  NOZZLE. 

Number  of  profiles  (1  for  a nozzle,  2 for  a 
channel) 

Index  (1  or  2)  of  the  profile  which  diverges 
from  the  channel  axis  least  rapidly  down- 
stream of  the  throat 

4.4  Common  /AVG/ 

Parameter  controlling  the  averaging  distance 
for  the  boundary  layer  correlation  parameter, 
n 


4.5  Common  /BL/ 

Displacement  thickness  of  the  boundary  layer 
on  the  profile  divided  by  RO.  For  two- 

dimensional  and  axisymmetric  nozzles,  only 
DELBL (1)  is  used. 

Integral  I for  the  boundary  layer  on  the  L^^ 
profile,  eq.  1(172) 

Position  at  which  boundary  layer  is  assumed 
to  begin  (negative  value,  cm  from  the  throat) 

Nozzle  wall  temperature  (°K) 

Specific  heat  of  the  gas  at  the  wall  tempera- 
ture (cal/g  °K) 

Ratio  of  viscosity  in  the  reservoir  to  the 
reservoir  temperature  (poise/®K) 

Throat  diameter  for  the  L^^  profile  (inches) 

Sw  “ where  h^  is  the  gas  enthalpy 

at  the  wall  and  hQ  the  free-streara 
stagnation  enthalpy 
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RO 


JDIM 

IP0INT 

XI  (I) 

0RDINP(I) 

DELBLPd) 

DDBLP(I) 

AMPP 

AMP 

C0UPLD 

ISMD 


Characteristic  length  used  in  boundary 
layer  calculations  (cm) ; equal  to  the  throat 
radius  for  two-dimens iona 1 and  axisymmetric 
nozzles;  equal  to>/A*/rr  for  channels, 
where  A'*  is  the  geometric  cross  sectional 
area  of  the  channel  at  the  throat 

Dimensionality  index,  0 for  two-dimensional 
nozzles,  1 for  axisymmetric  nozzles 

Index  of  flow  solution  points  at  which 
boundary  layer  calculations  are  done 

4.6  Common  /BLNE/ 

For  j = 1 and  2,  the  streamwise  coordinate 
along  the  nozzle  or  channel  surface  for  the 
I^h  profile  (cm) 

The  quantity  ffi  for  the  boundary  layer 
on  the  I^^  profile  at  the  preceding  flow 
point,  eq.  1(171) 

S */R0  for  the  boundary  layer  on  the  1^^ 
profile  at  the  preceding  flow  point 

(d  S*/dx)/RO  for  the  boundary  layer  on  the 
ith  profile  at  the  preceding  flow  point 

Mach  number  at  the  point  preceding  the 
previous  flow  point 

Mach  number  at  the  preceding  flow  point 

Logical  variable,  set  to  .TRUE,  when  the 
coupling  of  the  boundary  layer  to  the 
inviscid  flow  is  switched  on 

The  quantity  (30-i)  in  eq.  1(418) 
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4.7  Common  /bLOUT/ 


REPF 
THETA (L) 

SN  (L) 

XSN(L) 

PRREF 

HR 

QWD0T(L) 

TAW(L) 

YOZO 

FAILED 

CPl(I) 


Reynolds  number  per  foot  (ft 

Momentum  thickness  for  the  boundary  layer 
on  the  profile,  divided  by  RO 

Correlation  parameter  n,  eqs.  1(158)  and 
1(174),  for  the  boundary  layer  on  the 
profile 

Averaged  correlation  parameter  n,  eq.  1(217), 
for  the  boundary  layer  on  the  L^^  profile 

Prandtl  number  at  the  reference  temperature 

Recovery  enthalpy  (cal/g) 

Heat  flux  to  the  wall  surface  with  the 
profile  (Btu/ft^sec) 

Shear  stress  on  the  wall  surface  with  the 
jjth  profile  (Ib-f/ft^) 

4.8  Common  /BLRAP/ 

Product  of  the  two  throat  radii  for  a channel 
(cm^) 


4.9  Common  /CERR0R/ 

Logical  variable,  set  to  .TRUE,  when  a 
convergence  test  on  an  integration  step  is 
failed  in  subroutine  DERIVE  or  RNKT 

4.10  Common  /CHAN/ 

Specifications  for  standard  channel  no.  1; 

1=1  Index  of  first  channel  profile  in 
compiled-in  list  of  profiles 
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1=2  Index  of  second  channel  profile  in 
compiled-in  list  of  profiles 

1=3  Hollerith  name  for  channel 

1=4  Index  (1  or  2)  of  the  profile  which 
diverges  from  the  channel  axis  least 
rapidly  downstream  of  the  throat 

1 = 5 Hollerith  nai.;e  for  facility 


CP2(I) 

Specifications 

for 

standard 

channel 

no.  2 

CPS (I) 

Specifications 

for 

standard 

channel 

no.  3 

CP4U) 

Specifications 

for 

standard 

channel 

no.  4 

CP5(I) 

Specifications 

for 

standard 

channel 

no.  5 

CGMW 
QPJ(J) 
IJCS (J) 
NCS 

CF(1) 

CF(2) 

CF(3) 


4.11  Common  /C0LDSP/ 

Molecular  weight  of  the  cold  gas  mixture 
(g/mole) 

Mole  fraction  of  the  species  in  the  cold 
gas  mixture 

Index  of  the  cold  species  in  the  list  of 
species  for  the  current  problem 

Number  of  cold  species 

4.12  Common  /CONVRT/ 

Conversion  factor  from  nondimensional 
temperature  CT  to  temperature  in 

Conversion  factor  from  nondimensional 
pressure  PRES  to  pressure  in  atm 

Conversion  factor  from  nondimensional 
density  RH0  to  density  ir.  Ibm/ft^ 
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CF(4) 

CF(5-7) 

CF{8) 

CF(9) 

CF(IO) 

CF  ( 11) 

CF(12) 

CF( 13-16) 

CF( 17-26) 

SHJDGJ 


EEPl(J) 

♦ 

EEPIO(J) 


Conversion  factor  from  nondimens ional  velocity 
SU  to  velocity  in  ft/sec 

Conversion  factors  equal  to  1 

Conversion  factor  from  viscosity  in  poise 
to  viscosity  in  Ibm/ft  sec 

Con'.ersion  factor  equal  to  1 

Conversion  factor  from  length  in  cm  to  length 
in  inches 

Conversion  factor  from  nondimens ional 
enthalpy  CH  to  enthalpy  in  Btu/lbm 

Conversion  factor  equal  to  1 

Conversion  factors  from  nondimens ional 
boundary  layer  thicknesses  DELBL  and  THETA 
to  thicknesses  in  inches 

Conversion  factors  equal  to  1 

4.13  Common  /DRV/ 

(RqTq)"^  22  Hj  d 'Xj/dx,  where  Hj  is  the  molar 
enthalpy  of  the  jtn  species  and  'Vj  is  the 
concentration  of  the  jth  species  in  moles 
per  gram  of  mixture  (set  in  subroutine  EXACT) 

4.14  Common  /EELEM/ 

Data  for  first  input-defined  element 
J = 1 Atomic  number 

J = 2 Atomic  weight  (g/mole) 

Data  for  tenth  input -defined  element 
J = 1 Atomic  number 

J = 2 Atomic  weight  (g/mole) 


4.15 


Common  /ELEM/ 


EPl(I)  Specifications  for  standard  chemical  element 

no.  1: 

EPl(l)  Hollerith  name 
EP1(2)  Atomic  weight  (g/mole) 

EP2(I)  Specifications  for  standard  chemical  element 

no.  2 


EPIO(I) 


Specifications  for  standard  chemical  element 
no.  10 


4. 16  Common  /EQC/ 

This  block  is  used  by  subroutine  EQCALC  to  communicate 
the  results  of  its  thermochemical  equilibrium  calculations 
to  the  calling  routine. 


ZCAP(J) 

Mole  fraction  Xj  of  Jth  species 

ZSEN 

Entropy  (cal/g  °K) 

ZCH 

Nondimens ional  molar  enthalpy,  (RqTq)“^2  X.H. 

ZCM 

Mean  molecular  weight 

ZRBP 

Effective  density  (p^)  in  reservoir  for 
imperfect-gas  model 

ZRH0 

Nondimens ional  density,  P /Pq 

4.17  Common  /EQC2/ 

ZPZ 

(p/Pq)  , logarithm  of  the  nondimensional 
pressure 

ZGMU(I) 

Jin  logarithm  of  the  mole  fraction  for  the 

Ith  chemical  species 

1 


4,18  Common  /ERROR/ 


ERR 


Logical  flag  set  to  "true"  in  DUMP  routine; 
if  "true",  control  is  passed  back  to  Main 
program,  DUMPEX  is  called  to  print  a dump 
of  common  data,  and  case  is  terminated 


N0REAC(I) 


AIN(K,I) 


ISAT0M 

lSM0b 

JAT0M 

JM0L 


SMASS 


CTMXXI 


4.19  Common  /GLIM2/ 

Logical  control  variables;  when  N0REAC(I)  is 
set  to  .TRUE.,  the  reaction  is  suppressed 

4.20  Common  /INGNE/ 

The  inverse  A^,^  of  the  square  submatrix  . 
of  the  matrix  specifying  the  number  of^ 

atoms  of  the  element  per  molecule  of  the 
i^^*  species;  see  eq,  1(3) 

4,21  Common  A^N/ 

Index  of  atom  used  in  Lewis  nxamber  calculation, 
in  master  list  of  species 

Index  of  molecule  used  in  Lewis  number 
calculation,  in  master  list  of  species 

Index  of  atom  used  in  Lewis  number  calcu- 
lation, in  list  of  species  for  current 
problem 

Index  of  molecule  used  in  Lewis  number  calcu- 
lation, in  list  of  species  for  current 
problem 

4.22  Common  /MASSFL/ 

Sonic  mass  flux  based  on  total  mass  flow  and 
geometric  throat  area  (g/cm^sec) 

Temperature  (°K)  above  which  species  thermal 
properties  are  computed  from  the  thermo  fit 
for  those  species  for  which  thermo  fits  are 
supplied 
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I TST0PI  Free-stream  temperature  at  which  the  flow 

solutions  will  be  terminated  (*^K) 

IS (J)  Index  of  the  Jth  species  in  the  current 

problem,  in  the  master  list  of  species 

4.23  Common  /MIXT/ 

GPl(I)  Specifications  of  standard  gas  mixture  no.  1: 


1 = 1 
1 = 2 

1 = 3 

1=4 
1 = 5 
I = 6-15 

I = 16-25 
I = 26-45 

I = 46-109 

i 


Hollerith  name  of  mixture 

Number  of  chemical  elements  in 
mixture,  including  e“  if  the  gas 
model  contains  ion  species 

Number  of  chemical  species  in 
mixture,  including  e*"  if  model 
contains  ion  species 

Number  of  reactions  included  in 
gas  model 

Number  of  ions  in  gas  model, 
excluding  e“ 

Indices  of  elements  present  in 
mixture,  in  master  list  of 
elements;  if  electrons  are 
present,  they  are  the  first 
element 

Mole  fractions  (QPJ)  of  the  cold 
sped,  es 

Indices  of  the  species  included 
in  the  gas  model,  in  the  master 
list  of  species 

Indices  of  the  reactions  included 
in  the  model,  in  the  master  list 
of  reactions 
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I = 110-119 


; [ 

I ' 

I 

i 

I i 

! I 

I 

I 


GP2(I) 

GP6(I) 

XMPl 

DXMP 

FSTAG 


f 


I = 120 
I = 121 


I = 122 


I = 123 


I = 124 


Indices  of  the  cold  species,  in 
the  master  list  of  species 

Number  of  cold  species 

Atom  index  for  Lewis  number 
calculations,  in  the  master  list 
of  species 

Molecule  index  for  Lewis  number 
calculations,  in  the  master 
list  of  species 

INT.  If  INT  = 0,  electron 
temperature  equals  gas  tempera- 
ture. If  INT  > 0,  the  model 
includes  electronic  nonequilibrium, 
and  INT  is  the  index  of  the 
extra  reaction  properties  required 
in  TNEP(I,INT) 

Indicator  for  inclusion  (1)  or 
exclusion  (2)  of  Fay-Riddell 
Lewis  number  factor  in  the 
stagnation-point  heat  flux 


Specifications  of  standard  gas  mixture  no.  2 


Specifications  of  standard  gas  mixture  no.  6 
4.24  Common  /MODPAR/ 

Initial  distance  from  throat  at  which  model 
condition  calculations  are  to  be  done  (cm) 

(Not  used) 

Control  variable;  0.  value  suppresses  frozen 
shock  calculations  at  model  points,  negative 
value  suppresses  equilibrium  shock 
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CATFAC 


TM0DEL 

XM0DP1 

DXM0DP 

TPLATE 

KDIM 

TSDIAM(I) 

TSAR (I) 

NTS 

MBL 

M0DLPT 


Catalytic  efficiency  parameter  ffi  for 
stagnation  point  heat  flux  calculations; 

0 for  noncatalytic  wall 

Model  wall  temperature  for  stagnation  point 
heat  flux  calculations  (‘^K) 

Initial  distance  from  the  throat  at  which 
model  condition  calculations  are  to  be  done 
(inches) 

(Not  used) 

Wall  temperature  for  calculations  of  heat 
flux  to  a flat  plate  at  zero  angle  of  attack 
(°K) 

Control  variable  for  stagnation  point  heat 
flux  calculations;  0 for  two-dimensional 
model  geometry,  1 for  axisyrametric  model 

4.25  Common  /M0DPT/ 

Test-section  diameters  at  which  model 
condition  calculations  are  to  be  done  (inches) 
in  channel  now  problems,  specif-*  ed  channel 
widths  at  which  flow  calcxilations  are  to  be 
done 

Geometric  area  ratios  at  the  nozzle  stations 
defined  by  TSDIAM(I) 

Number  of.  specified  test  section  diameters 

In  channel  flow  problems,  index  of  the 
profile  defining  the  channel  width 

4.26  Common  /M0DP2/ 

Logical  indicator,  .TRUE,  when  the  current 
step  in  the  nonequilibrium  solution  is  at  a 
model  point 


4. 27  Common  /NEQ/ 


0MDST (L) 
DDELBL(L) 


FACMP 


NM0DPT 


ZPlU) 


1 - ^*/R0  for  the  Lth  profile  at  the  sonic 

point 

(d  5*/dx)/R0,  derivative  of  nondimens ional 
displacement  thickness  for  the  boundary  layer 
on  the  Lth  profile 

4.28  Common  /NEWMP/ 

Factor  by  v/hich  di  stance  from  throat  is 
increased  in  a geometric  sequence  of  model 
points 

Number  of  model  points  in  geometric  sequence 

4,29  Common  /N0ZZ/ 

Specifications  of  standard  nozzle  profile  no.  1 


1=1  Throat  radius  in  cm 


1=2  Distance  upstream  of  the  throat 

of  the  point  at  which  the  boundary 
layer  is  assumed  to  originate 
(negative  value,  cm) 

1=3  Number  of  profile  sections  upstream 

of  the  throat 


1=4  Number  of  profile  sections  down- 

stream of  the  throat 

I = 5-16  Shape  indices  (ISHAPE)  of  the 

profile  sections  (in  order  from 
upstream  to  downstream) ; 


ISHAPE  = 1 Straight  section 

ISHAPE  = 2 Circular  section  convex 
toward  axis 


1 


ZP2  (I) 
ZP20(I) 


TB7 


*See  Section 


ISHAPE  " J Circular  section  concave 
toward  axis 

I = ?.7-27  Downstream  boundaries  of  profile 

sections  (distances  from  the  throat, 
positive  downstream,  cm) 

I = 28-63  Parameters  defining  the  profile 

sections  (lengths  in  cm).*  There 
are  three  parameter  values  P2» 

P3  for  each  profile.  For  ISIiAPE  = 

1,  the  equation  of  a straight 
profile  IS 

r(x)  = P2^  + P2X 

For  ISHAPE  = 2 or  3 

Pj_  = distance  of  circle  center 
from  axis 

P2  = x-coordinate  of  circle  center 
P3  = circle  radius 
I = 64  Hollerith  facility  name 
Specifications  of  standard  profile  no.  2 


Specifications  of  standard  profile  no.  20 
4.30  Commox-i  /OfUlMSlD/ 


is  Avogadro’s 
particles  per  mole)  and 
density  in  the  reservoir  in 


number 

/"O  is 

g /cm-^ . 


(6.0225 

the 


X 


4.7  of  Volume  II 
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4.31  Common  /0UTPUT/ 

FV0UT(I)  Array  used  for  output cf  flow  variables;  set 

in  subroutine  0UT1  (entry  0UT2) 

1=1  Axial  coordinate,  x (inches) 

1=2  Temperature  (°K) 

1=3  Static  enthalpy  (Btu/lb) 

1=4  Pressure  (atm) 

1=5  Density  (Ib/ft^) 

1=6  Nozzle  diameter  (inches);  geometric 
area  ratio  in  channel  solutions 

1=7  Velocity  (ft/sec) 

1=8  Mach  number 

1=9  Entropy  (Btu/lb°R) 

I = 10  Frozen  specific  heat  ratio 

I = 11  Effective  area  ratio 

I = 12  Reynolds  number  (per  ft) 

I = 13  Molecular  weight  (g/mole) 

I = 14  Viscosity  (Ib/ft  sec) 

I = 15  Electrical  conductivity  (mho/cm) 

I = 16  Geometric  area  ratio;  width  of  face 
with  first  profile  in  channel 
solutions 

I =17  Displacement  thickness  (inches) 

I = 18  Momentum  thickness  (inches) 
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GJMF ( J) 

' ; 


i 
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I = 19  Heat  flux  to  wall  (Btu/ft^sec) 

I = 20  Shear  stress  on  wail  (Ibf/ft^) 

I = 21  Recovery  enthalpy  (Btu/lb) 

I = 22  Prandtl  number  at  the  reference 
temperature 

I = 23  Stanton  number 


I = 24  Reynolds  number  based  on  0 

I = 25  Re^  for  boundary  layer  transition 

I = 26  Width  of  face  with  second  profile 
(channel  solutions  onj^y) 

1 = 27  Displacement  thickness  on  second 
profile  (inches) 


I = 28  Momentum  thickness  on  second  profile 
(inches) 


I 


29 


Keat  flux  to  wall  on  second  profile 
(Btu/ft^sec) 


I “ 30  Shear  stress  on  wall  on  second  prof  ile 
(lbf/ft2) 


I = 31  Recovery  enthalpy  (Btu/lb) 

I = 32  Prandtl  number  at  the  reference 
temperature 

I = 33  Stanton  number  on  second  profile 
I = 34  Rcq  on  second  profile 
I = 35  Rej,  for  transition 
(Not  used) 
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THEVE(K, J) 


For  K = 1-4,  the  four  characteristic 
vibrational  temperatures  of  the  Jth  species 
in  the  current  gas  model,  if  this  species  is 
a linear  triatomic  molecule.  In  subroutine 
READ,  the  entries  K = 2—4  are  set  to  values 
in  °K.  In  subroutine  INIT,  these  values  are 
nondimens ionalized  by  dividing  them  by  the 
reservoir  temperature,  and  the  value  K = 1 
is  set 


4.33  Common  /RDLIST/ 


IGAS 


Index  of  standard  gas  mixture 


IGAS0 


IGAS  value  in  preceding  case  (if  any) 


ICHAN0 


Nozzle  profile  index  for  preceding  case 
Channel  index  for  preceding  case 


4.34  Common  /RDMAIN/ 


Input  value  of  stagnation  enthalpy  (cal/g) 

Logical  control  for  suppressing  output  of  the 
gas  model  data  when  the  model  is  the  same  as 
in  the  preceding  case 


Input  control  for  the  iteration  to  take  the 
displacement  thickness  into  account  in  the 
reservoir  condition  calculations;  zero  value 
suppresses  the  iteration 

Input  logical  control  for  suppressing  all 
transport  property  calculations 
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LEWIS 

lAMBIP 

FL0W 

FACNAM 

CHANAM 

LIM0OT 

ISW8B 


ANGLE (I) 
RADLE ( J) 
WXl 

DVDC 


4.35  Common  /RDMC^D/ 

Index  controlling  use  of  the  Fay-Riddell 
Lewis  number  factor  in  stagnation-point  heat 
flux  calculations.  For  LEWIS  = 1,  the  factor 
is  used;  for  LEWIS  -2,  it  is  omitted 

Index  specifying  whether  the  diffusion  process 
upon  which  the  Lewis  number  is  based  is 
ambipolar  (lAMBIP  = 2)  or  not  (lAMBIP  = 1) 

4.36  Common  /RD0UT/ 

Total  mass  flow  in  Ibm/sec 
Hollerith  facility  name 
Hollerith  channel  name 

Index,  nonzero  if  the  boundary  layer  parameters 
N and  XSN  are  to  be  printed  in  the  output, 
equal  to  0 if  not 

4,37  Common  /RDTR/ 

Index  controlling  diagnostic  dumps  in  the 
transport  property  routines.  If  ISW8B  =0, 
these  dumps  are  omitted.  If  ISW8B  > 0,  the 
PUTQIN  dump  is  produced  once  every  ISW8B 
times  the  subroutine  PUTQIN  is  called.  If 
ISW8B  < 0,  the  PUTQIN  dump  is  suppressed. 

4.38  Conmion  /RDWEDG/ 

Angles  of  attack  (degrees) 

Radii  of  leading  edge  (inches) 

Initial  distance  from  leading  edge  of  wedge 
( inches) 

Increment  in  distance  from  leading  edge 
( inches) 
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WXI(K) 

TWEDGE 

WK 

NWX 

NAEGLE 

NBADLE 

WEDGEM 

AXISYM 

ISW9B 


RPI(I) 


1 


Specified  distances  from  leading  edge  (inches) 

Surface  temperature  of  wedge  model  (°K) 

Leading-edge  drag  coefficient,  k 

Number  of  distances  from  leading  edge  (at 
increment  of  DvfX)  at  which  surface  conditions 
on  wedge  model  are  to  be  calculated 

Number  of  angles  of  attack 

Number  of  leading-edge  radii 

Logical  control  variable;  if  "false", 
conditions  on  wedge  are  not  calculated 

Logical  control  variable;  if  "false", 
stagnation  point  heat  fluxes  are  not  calculated 

Control  variable,  normally  0,  with  the  following 
possible  optional  values: 

+ 1 Print  shock  ordinate  Yg 

i 2 Print  nondimensional  coordinate  ~C 

+ 3 Print  both  Yg  and  C 

If  1SW9B  is  negative,  calculations  are  done 
using  the  unmodified  Cheng-Kemp  theory  as 
well  as  the  modified  theory 

4.39  Common  /REAC/ 

Specifications  of  standard  reaction  no.  1: 

1=1  Coefficient  A in  formula  for 

forward  reaction  rate  constant 
(cm^/mole  sec  or  cm^/moLe^  sec) 

1 = 2 Exponent  yj  in  formula  for  rate 

constant 
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1=3  Activation  energy  in  formula  for 

rate  constant  (cal/mole) 

1=4  Equal  to  1.0  if  a third-body  list 

is  provided  for  the  reaction, 
equal  to  0.0  if  not 

1=5  Number  of  reactant  species  ( < 3) 

1=6  Number  of  product  species  ( < 3) 

I = 7-9  Indices  of  reactant  species  in 
master  list  of  species 

I = 10-12  Indices  of  product  species  in 
master  list  of  species 

I = 13-15  Numbers  of  molecules  of  reactants 

I = 16-18  Numbers  of  molecules  of  products 

I = 19  Number  of  third  bodies 

I = 20-29  Indices  of  third-body  species  in 
master  list  of  species 

RP2(I)  Specifications  of  standard  reaction  no.  2 


RP92(I) 


PRESAI 


DELTlI  Input  value  of  nondimens ional  temperature 

decrement  used  in  the  frozen  and  equilibrium 
flow  calculations  and  in  starting  the  non- 
equilibrium solution 


I 

I 

-L,  , 

TPRNTI 

DELTXI 

CXMAXI 

CTAPI 

XZER0I 

PARAMI  (L,M 

BZER$2fl 

HSTAG 

READXS 

READG 

AAMS 

hXm0D 

ICASE 

NEELS 


I 


The  free-stream  nonequi Librium  solution  is 
printed  out  at  temperature  intervals  greater 
than  or  equal  to  TPRNTI  times  the  reservoir 
temperature.  For  TPRNTI  =0.,  every  step  is 
printed 

Input  value  of  initial  step  size  in  x for 
nonequilibrium  integration  (cm) 

Distance  beyond  the  throat  at  which  the  flow 
solutions  are  stopped  (inches) 

Reservoir  temperature  input  (°K) 

Nozzle  or  channel  inlet  position  at  which 
the  boundary  layer  is  assumed  to  originate 
(negative  value,  measured  in  inches  upstream 
from  rhe  throat) 

N) Input  array  of  parameter  values  for  nozzle  or 
channel  profiles  (see  definitions  of  code 
inputs.  Group  4,  in  Section  2.3  of  Volume  II) 

Input  of  constant  in  imperfect  j?s  correction 

Input  stagnation  enthalpy  (Btu/lb) 

Input  control  for  reading  cross  section  data 
for  transport  property  calculations 

Input  control  for  reading  data  on  elements, 
species,  and/or  reactions 

Input  control  for  automatic  air  model  selection 

Input  control  for  suppressing  stagnation  point 
model  condition  calculations  if  only  wedge 
calculations  are  desired 

Case  number  in  the  current  job 

Number  of  elements  being  defined  in  the  input 
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ISW7B 


Input  control  for  suppressing  the  output  of 
the  boundary  layer  parameters  N and  XSN 


INT 


Indicator  for  electronic  nonequilibrium  in 
a gas  model 


ICHAN 


Index  of  standard  channels 


NQSI 


INEQVI 


Number  of  successful  integration  steps 
required  before  rhe  step  size  in  the  non- 
equilibrium  calculation  is  increased 

Input  control  for  equilibrium  or  frozen 
molecular  vibration 


NRECO 


JCS(I) 


ISCI 


Input  of  number  of  records  already  on  data 
tape  at  beginning  of  run 

Indices  of  cold  species  in  master  list  of 
species 

Input  of  the  number  of  chemical  elements  in 
the  gas  model 


ISSI 


Input  of  the  number  of  chemical  species  in 
the  gas  model 


ISRI 


Input  of  the  number  of  reactions  in  the  gas 
model 


ICI 
IE  (I) 


Input  of  the  number  of  ions  in  the  gas  model 

Input  indices  of  elements  present  in  the  gas 
model,  in  the  master  list  of  elements 


IR(I) 


Input  indices  of  reactions  in  the  gas  model, 
in  the  master  list  of  reactions 


NSECTS(I,J)  For  1=1,  number  of  upstream  sections  in  the 
curvefit  for  the  Jth  profile;  for  1=2, 
number  of  downstream  sections 


lEEP(l) 


Indices  assigned  to  the  input-defined  elements 
in  the  master  list  of  elements 
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r 


GAMIN 


HTEST 


TETEST 


QTEST 


DCHLL 


DCHRAT 


4.41  Common  /RENE/ 

Concentration  (moles/ij)  below  which  a species 
will  be  frozen  if  it  decreases  so  rapidly 
that  it  controls  the  integration  step  size. 

Maximum  relative  change  in  total  enthalpy  in 
an  integration  step. 

Maximum  relative  change  in  electron  temperature 
in  an  integration  step 

Criterion  value  for  maximum  allowable  change 
in  energy  transfer  to  electron  gas  in  an 
integration  step 

Parameter  used  in  selecting  initial  integration 
step  size;  the  initial  Ax  is  not  allowed  to 
exceed  0.01  1 §2'^!  j^^j^/DCHLL. 

Parameter  controlling  the  artificial  increase 
in  reaction  rates  in  the  perturbation 
solution  to  avoid  premature  startup  of  the 
numerical  integration  (Section  7.3.7  of 
Volume  I) 


CCHI 


TTEST 


GTEST 


VISCR 

PRR 

SIGR 


Parameter  C^  in  criterion  for  switch  from 
perturbation  solution  to  numerical  integration 

Maximum  relative  change  in  the  gas  tempera- 
ture in  an  integration  step 

Maximum  relative  change  in  a species  con- 
centration in  an  integration  step 

4.42  Common  /RESPRP/ 

Viscosi'cy  in  the  reservoir  (poise) 

Prandtl  number  in  the  reservoir 

Electrical  conductivity  in  the  reservoir 
(mho/cm) 
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FLEWR 


Lewis  number  in  the  reservoir 


SPl(I) 


4.43  Common  /SPEC/ 

Specifications  for  standard  species  no.  1; 

1=1  Hollerith  name  for  species 

1=2  Number  of  elements  in  species  ( < 3) 

I = 3-5  Indices  of  elements  in  the  master 
list  of  elements 

I = 6-8  Numbers  of  atoms  of  elements 

I = 9-14  Thermo-fit  parameters  a,  b,  c,  d, 
e,  k 

I = 15  Formation  enthalpy  (cal/mole) 

I = 16  Number  of  atoms  in  a molecule  of 

the  species 

I = 17  Chemical  constant,  b 

I = 18  Characteristic  vibrational  tempera- 

ture (°K) 


Number  of  electronic  levels  ( < 10) 
1 if  thermo-fit  is  used,  0 if  not 


I = 19 

I = 20 

I = 21-30  Degeneracies  of  electronic  levels 

I = 31-40  Energies  of  electronic  levels 
(cal/mole  above  ground  state) 

I = 41-43  Second,  third,  and  fourth  charac- 
teristic vibrational  temperatures 
for  linear  triatomic  species  (^K) 
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4.44  Common  /SS/ 


CAS 

Square  of  the  sound  speed  divided  by  the  non- 
dimensional  temperature  T/Tq  (cm^/sec^) 

US 

Standard  velocity  used  for  nondimensionalizing 
the  flow  velocity,  ^/RqTqA^q  • where  Tq  is 
the  reservoir  temperature,  Wq  the  reservoir 
molecular  weight,  and  Rq  = 8.31436  x 10^ 
erg/mo le°K 

4.45  Common  /STAG/ 

T2E 

Initial  estimate  of  temperature  behind 
equilibrium  normal  shock  (®K) 

EPSL0N 

Initial  estimate  of  density  ratio  across 
equilibrium  normal  shock 

T2F 

Initial  estimate  of  temperature  behind  frozen 
normal  shock  (°K) 

EPSP 

Initial  estimate  of  density  ratio  across 
frozen  normal  shock 

4.46  Common  /STEPS/ 

NSTEPS 

Number  of  successful  integration  steps  since 
the  last  printout  of  conditions  at  a flow 
point 

4.47  Common  /SWITCH/ 

XPB 

The  corrected  x-coordinate  of  the  flow  point 
preceding  the  point  at  which  BLAYER  is  first 
called  with  x corrected  for  the  displacement 
thickness  in  the  frozen  and  equilibrium 
solutions  (cm) 

DXPB 

The  difference  in  corrected  x values  between 
the  point  at  XPB  and  . the  preceding  point 
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w 


XXX(I) 

ITP(2fUT 

NRC0UT 

IFL0W 

ITYPER 


IMP 

DATAPE 


SAVEC(J) 


RSA 


Constant  parameter  w determining  the  charac- 
teristic distance  over  which  the  boundary 
layer  correlation  parameter  n is  averaged; 
see  eqs . 1(218)  and  1(217) 

4.48  Common  /TAPC(UT/ 

Block  of  storage  used  to  set  up  data  which 
are  to  be  saved  on  binary  tape  for  subsequent 
processing  by  other  programs 

File  number  of  binary  output  tape 

Number  of  records  written  on  binary  tape 
during  current  case  of  job 

(Not  used) 

Type  of  record  written  on  binary  tape: 

1 "Case"  record  with  overall  definition  of 
flow  solution  being  computed 

2 "Point"  record  containing  free-stream  flow 
variables 

3 "Model"  record  containing  data  for 
stagnation  point  model 

Index  of  model  points  written  onto  binary 
tape  in  current  solution 

Logical  control  variable;  if  "false",  no 
data  are  written  onto  binary  tape 

4.49  Common  /TEMPRY/ 

Species  mole  fractions  for  which  transport 
property  calculations  are  done 

4.50  Common  /THRT/ 

Factor  by  which  cross  sectional  area  of  flow 
has  been  rescaled  in  nonequilibrium  solution 


I 


4.51  Common  /TNCEy 


SUMGH 


SCPGH 


QDPR 


2^  T j.  sum  of  the  molar  concentrations  for 
i’ll  species  except  the  electron  (mole/g) 

v% 

Cpj  'Vj/Ro*  products  of  the 

molar  heat  capacities  and  molar  concentrations 
for  all  species  except  the  electron,  divided 
by  the  universal  gas  constant 

Power  radiated  from  the  gas,  cal/cm^-sec 


QDPE 


Net  power  transferred  to  the  electron  gas 
(cal/cm^-sec) 


4.52  Common  /TNDC/ 


XMJATD(J,L)  Chemical  potential  at  standard  pressure  ( for 

the  Jth  species,  evaluated  at  the  temperature 
(L  = 1,  heavy  particle  temperature;  L = 1,  electron 
temperature) , divided  by  Rq  times  the  Lth  temperature 

CLNTD(L)  Natural  logarithm  of  the  Lth  temperature 

(L  = 1,  heavy  particle  temperature;  L = 2, 
electron  temperature) 

CTD(2)  Nondimens ional  temperatures  (L  = 1,  T/Tq; 

L = 2,  Tq/Tq) 

4.53  Common /TNE/ 


TNI(I) 


Specifications  of  data  for  standard  electronic 
nonequilibrium  model  no.  1 (helium) : 


I = 1-25  KTF(I),  indicator  for  type  of 

formula  for  forward  rate  constant 
of  the  Ith  reaction;  see  Sec. 

4.4  of  Vol.  II 
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TN2(I) 


TLISTd) 


P0M(I) 


I =•  26-50  KTR  indicators  for  the  reverse 
reactions  in  the  gas  niodel. 

KTR  = 0 if  the  backwe-rd  rate 
constant  kj.  is  zero?  KTR  = 1 if 
kj.  = kj.(T)  ; and  KTR  = 2 if 

ky  = kj»  (Tg) 

I = 51-75  ITR  values  for  the  reactions  in 

the  gas  model.  ITR  is  an  indicator 
the  rule  for  partitioning  the 
reaction  energy  between  the 
electrons,  che  heavy  particles, 
and  radiative  losses.  The 
significance  of  its  values  is 
discussed  in  Sec.  4.4  of  Vol.  II 

I = 76-100  parameters  for  rc  cticns 

I = 101-125  Values  of  the  parameter  "a"  for 
reactions  ' Jth  ITR  = 1 


I = 126-155  Temperature  values  for  table  of 
elastic  collision  cross  section. 


I = 156-185 


qU.D 

Q values  for  table 


I = 186  Parameter  b for  reactions  with 

KTF  = 4 


Specifications  of  data  for  electronic  non- 
equilibrium  model  no.  2 (argon) 

4 . 54  Common  /TNEQ/ 


For  I = 1-30,  temperatures  for  elastic 
collision  cross  section  table  for  current  gas 
model  (°K) 

For  I = 1-30,  cross  section  values  for  elastic 
collision  cross  section  table  for  current  gas 
model 
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4.55  Common  /TNERK/ 


I 

i 

i 

I 

i 

i 

f 

\ 


SDTE 

CTEB 

DCHA 

CHB 


ATg/Tg*  change  in  electron  temperature  in 
integration  step 


Tg/Tg  at  the  start  of  the  integration  step 

(Wg/RgTg) (dhg/dx) , rate  of  change  of  non- 
dimensional  total  enthalpy 


Wobg/RoTg,  nondimens ional  total  enthalpy  at 
start  of  integration  step 


I 

t 

I 

I 

f 

t 

i 

I 

f 

< 

f 


9 

i 


I 


SDCIR^  (Wghg/RgTg)  , Change  in  nondimens  ional 

total  enthalpy  in  integration  step 


DQHAX 


IFAIL 


D , criterion  value  for  convergence  test  on 
changes  in  energy  transfer  to  the  electron 
gas 


Indicator  for  cause  of  integration  step 
failure: 


Ii"IL 


0 

Failure 

(called 

1 

Test  on 

2 

Test  on 

3 

Test  on 

4 

Test  on 

5 

Test  on 

11-30 

Te.T  “ on 
P in 

31-50 

Test  on 
element 

Meaning 

in  COMM  or  DERIVS 
from  RNKT) 

T in  N0NEQ 

Te  in  N0NEQ 

hg  in  N0NEQ 

DL0GA  in  N0NEQ 

QDPE  in  N0NEQ 

GJ(IFAIL-IO)  from 
N0NEQ 

GJ(IFAIL-30)  from 
conservation  in  N0NEQ 


(j 


i 
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1 

1 

i 

1 

i 

1 

t 

-■  * ' 1 

i 

1 

IFAIL 

Meaninq 

60 

Failure  in  DERIVS  or  C0MM 
(called  from  N0NEQ) 

-1  to  -ISS 

Test  on  sign  of, GJ(-IPAIL) 
in  RNKT  (GJ2  or  GJ3) 

-(ISS+1) 

Test  on  sign  of  T in  RNKT 
(GJ2  or  GJ3) 

-(ISS+2) 

Test  on  sign  of  Tg  in  RNKT 
(GJ2  or  GJ3) 

-(ISS +3) 

Test  on  sign  of  ho  in  RNKT 
(GJ2  or  GJ3) 

-(ISS +4) 

Test  on  QDPE  in  RNKT  (GJ2 
or  GJ3) 

-31  to  (-30+ISS) 

Test  on  sign  of  GJ(-IFAIL-30) 
in  RNKT  (GJ4,  Runge-Kutta) 

-(31+ISS) 

Test  on  sign  of  T in  RNKT 
(GJ4,  Runge-Kutta) 

-(32+ISS) 

Test  on  sign  of  T^  in  RNKT 
(GJ4,  Runge-Kutta) 

-(33+ISS) 

Test  on  sign  of  in  RNKT 

(GJ4,  Runge-Kutta) 

-(34+ISS) 

Test  on  QDPE  in  RNKT  (GJ4, 
Runge-Kutta) 

-61  to  -(60+ISS) 

Test  on  sign  of  GJ(-IFAIL-60) 
in  RNKT  (GJ4,  Treanor) 

-(61+ISS) 

Test  on  sign  of  T in  RNKT 
(GJ  i,  Treanor) 

-(62+ISS) 

Test  on  sign  of  T^  in  RNKT 
(GJ4,  Treanor) 

IFAIL 


Meaning 


CTE 


DTE 


BPAR 

EPAR(I,JR) 


NT 


ITR(JR) 


-(63+ISS) 

-(64+ISS) 


Test  on  sign  of  Hq  in  RNKT 
(GJ4,  Treanor) 

Test  on  QDPB  in  RNKT  (GJ4. 
Treanor) 


4. 56  Common  /TNgfNEQ/ 

ELectron  temperature  divided  by  gas  tempera** 
ture  in  reservoir 

Derivative  of  CTE  with  respect  to  x,  i.e., 

d(Te/TQ)/dx 

Parameter  b for  reactions  with  RTF  = 4 

EPAR(1,JR)  = parameter  €q  for  the  JRth 
reaction  in  cal  per  Nq  reactions;  EPAR(2,JR)  = 
parameter  a for  the  JRth  reaction  if  ITR(JR)  = 
1 

Indicator  for  electronic  nonequilibriwn  in  the 
gas  model;  for  NT  =1,  the  gas  and  electron 
temperatures  are  assumed  to  be  equal;  for 
NT  = 2,  they  are  not 

Indicator  of  the  rule  for  partitioning  the 
reaction  energy  between  the  electrons,  the 
heavy  particles,  and  radiative  losses  in  the 
JRth  reaction  of  the  current  gas  model.  See 
discussion  in  Section  4.4  of  Vol.  II 

Indicator  for  temperature  dependence  of  the 
forward  rate  constant  kf  for  the  JRth 
reaction  in  the  current  gas  model;  see  Sec. 

4.4  of  Vol.  II 


RTF  (JR) 


4 


KTR(JR) 


ICH(J) 


IPA(I) 


Ili(K) 


I 

JJi(K) 


T 


Indicator  for  temperature  dependence  of  the 
backward  rate  constant  kj.  for  the  JRth 
reaction  in  the  current  gas  model: 

KTR  = 0 ® 

KTR  * 1 = kr(T) 

RPR  = 2 k^  = kj.(Tg) 

Indicator  for  charged  species;  equal  to  I if 
the  Jth  species  is  neutral,  equal  to  2 if 
the  species  is  an  ion 

Species  index  for  the  product  atom  in  the  Ith 
reaction;  if  KTF(I)is  not  equal  to  4,  IPA(I)  is 
ret  to  zero 

4.57  CooMnon  /TRANI/ 

For  K = 1 to  a maximum  of  5,  the  index  of  the 
first  species  in  the  Kth  pair  of  species  to 
which  the  cross  section  calculated  in  the 
ith  step  of  the  transport  property  calculation 
is  applied.  The  common  block  provides  storage 
for  i = 1 to  100 

4.58  Common  /TRANJ/ 

For  K = 1 to  a maximum  of  5,  the  index  of 
the  second  species  in  the  Kth  pair  of  s -^cies 
to  which  the  cross  section  calculated  i *.e 
i^*^  step  of  the  transport  property  calcu.  -ion 
is  applied.  The  common  block  provides  storage 
for  i = 1 to  100.  Only  pairs  with  IIi\K)  < 
JJi(K)  are  used 

4.59  Common  /TRANS 1/ 

Temperature  in  °K  for  transport  calculations 


> 

/ 
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1 


I 

1 


Q(K.I.J) 


ZM2(I) 


KKQ(L) 


NNQ(L) 


ISEQ  (K) 


Q(K,I,J)  is  used  in  the  cross  section 
computations  to  store  the  averaged  cross 
sections  for  the  species  pair  (I,J)  as  follows 

Q(1,I,J)  = 

Q(2,I,J)  = il^j(2.2)^ 

Q(3,I,J)  = Btj  H . 

At  other  stages  in  the  calculations,  Q(K, I,J) 
is  also  used  in  subroutine  TRANSP  to  store 
the  matrix  elements  for  the  transport  calcu- 
lations, and  in  subroutine  XSECT  to  indicate 
the  species  pairs  for  which  cross  section 
data  have  been  supplied 

Quantity  proportional  to  molecular  weight  of 
species  I,  eqs.  (171) 

4.60  Common  /TRANS 2/ 

Index  of  option  to  be  used  for  step  L of  cross 
section  computations  in  input  or  precoded 
data;  see  Section  4.4  of  Vol.  II 

Number  of  species  pairs  in  IIQ,  JJQ  arrays 
for  which  option  KKQ(L)  is  specified  in 
input  data 

Sequencing  array  specifying  the  order  in 
which  the  defined  steps  of  the  transport 
cross  section  calculation  are  to  be  carried 
out 


NNKQ  Number  of  steps  specified  for  cross  section 

computations 

I ( J)  Temporary  array  of  species  indices  used  by 

subroutine  XSECT  in  preparing  edited  cross 
section  data 
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4.61  Common  /TRANS3/ 


B(I.L) 

BR(I,L) 

A(L) 

X(I) 

DH(I) 

TL(I) 

0MEGAI(I) 

ASTAR(I) 

BSTAR(I) 

N 

lELEC 

IDl 


Intermediate  variable  in  transport  calculations; 
see  KINT  and  KANDHU,  Sections  3.27  and  3.28 

Reciprocal  of  B(I,L) 

Intermediate  variable  in  transport  calculations; 
see  KANDHU,  Section  3.27 

Mole  fraction  of  species  I in  gas  mixture 

Nondimens ional  internal  specific  heat 
(W^Cp^/ijQk  - 5/2)  for  species  I in  gas  mixtuxe 

4.62  Coronon  /TRANS4/ 

Independent  variable  (temperature)  for  tabulated 
cross  section  data 

Value  of  first  parameter  determining  cross 
sections  at  TL(I)  for  tabulated  cross  section 
data 

Value  of  second  parameter  determining  cross 
sections  at  TL(I)  for  tabulated  cross  section 
data 

Value  of  third  parameter  determining  cross 
sections  at  TL(I)  for  tabulated  cross  section 
data 


4.63  Common  /TRANS 5/ 

Number  of  species  included  in  transport 
calcul'ttions 

IELEC=0  indicates  that  electrons  are  not 
included  in  the  calculations 

Index  in  the  current  gas  model  of  first 
species  used  in  Lewis  number  computation 


ID2 

V(M) 

KQ(L) 

NO(L) 

IQ(N) 

JQ(N) 

NKQ 

NV(K) 

N 

Wi(K) 


Index  in  the  current  gas  model  of  second 
species  used  in  Lewis  number  computation 

4.64  Ccmimon  /TRANS7/ 

List  of  parameters  for  cross  section 
conputations  in  edited  data 

Option  to  be  used  for  step  L of  cross  section 
computations  in  edited  data 

Index  of  last  species  pair  in  IQ*jQ  arrays 
to  which  step  L of  the  edited  cross  section 
ccxnputations  is  to  be  applied 

List  of  first  indices  for  species  pairs  to 
which  edited  cross  section  data  euce  to  be 
applied 

List  of  second  indices  for  species  pairs  to 
which  edited  cross  section  data  are  to  be 
applied 

Number  of  steps  in  cross  section  computations 
for  edited  cross  section  data 

4.65  Common  /TRANS 8/ 

Number  of  parameters  V required  for  option  K 
of  the  cross  section  computations 

Number  of  species  included  in  cross  section 
computations 

4.66  Common  /TRANV/ 

For  K = 1 to  a maximum  of  5,  the  input  para- 
meters for  the  ith  step  of  the  cross  section 
calculations.  The  common  block  provides 
storaje  for  i = 1 to  100 
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4.67  Gomroon  A*RPR0P/ 


o 

vise 


Viscosity  of  mixture  in  poise 


PRP 


Frozen  Prandtl  number  for  mixture  (dimension 
less) 


SIGMZV 


Electrical  conductivity  of  mixture  in  mhos/cm 


i 

I 

I 


r 

X 


I 


f 


FLEWIS 

TSF 

ATEST 

ATH 

CHTH 

CMTH 

D 

BELT 

D1 

ELTMIN 


Atom-molecule  Lewis  number  of  mixture 
( dimensionless ) 

4.68  Common  A?Mg(D/ 

Frozen  stagnation  temperature  (°K) 

4.69  t<»ain  Program 

Previous  value  of  A in  the  Newton-Raphson 
iteration  to  determine  the  parameter  oc  in  the 
density-area  relation  1(383) 

Effective  cross-sectional  area  of  the  flow  at 
the  throat,  with  allowance  for  the  boundary 
layer  displacement  thickness  (cm^) 

Nondimens ional  enthalpy  hWQ/RQTQ  at  the  throat 

Molecular  weight  of  gas  mixture  at  the  throat 

(P*/Pq)^  (A+2)  -2,  where  is  the  density  at 
the  sonic  point  in  the  equilibrium  flow 
solution  and  A is  the  current  estimate  of  the 
parameter  cx  in  the  density-area  relation 

Initial  decrement  of  the  nondimens ional 
temperature  for  starting  the  perturbation 
calculation  of  the  nonequilibrium  flow 

]^(A+2)iVi  ip^/p^)  + l] 

Case  execution  time  in  minutes 


(. 
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ET 

Elapsed  time  from  beginning  of  execution 
(seconds) 

ETO 

Elapsed  time  from  beginning  of  execution  at 
the  start  of  a case  (seconds) 

GJ(I) 

Species  concentrations  in  moles/g 

GJA(I) 

Species  concentrations  in  the  upstream 
reservoir,  moles/g 

GMF(J) 

Mole  fraction  of  the  spe-ies  under  equi 

librium  sonic  conditions 

HOP 

Reservoir  enthalpy  (cal/g) 

1RC0 


IS0LN 


IS3 

K 

N 

NCASE 

NC0MPL 


D0  index?  also,  index,  in  the  list  of  species 
for  the  current  problem,  of  the  cold 
species 

Indicator?  value  1 indicates  that  call  to 
TRANSX  was  skipped  in  the  previous  case 
because  tables  of  species  thermal  properties 
were  generated 

Indicator  for  type  of  flow  solution: 

IS0LN  - 1 Frozen 
IS0LN  = 2 Equilibrium 
IS0LN  = 3 Nonequilibrium 

Storage  for  input  value  of  ISW3B?  used  to 
restore  value  after  a case  in  which  ISW3B 
was  set  to  ^ero  because  N0TRAN  = ^TRUE. 

Cold  species  index 

Iteration  counter  in  Newton-Raphson  solution 
for  paraimeter  o<  in  area-density  relation 

Countf  '■  for  cases  in  a run 

Number  of  cases  successfully  completed  in  a run 


( 0 
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I 


Ntunber  of  failed  cases  in  a run 
Nozzle  profile  index 

Total  number  of  records  written  on  tape  8 
during  a run 

1.0 

3.14159 

^n  (/^*//>q) 

A+2 

Nondimens ional  flow  velocity  (SU)  at  throat 
Viscosity  in  the  reservoir  (Ibm/ft-sec) 

4.70  Subroutine  AESgfLN 
Displacement  thickness  in  cm,  on  Lth  profile 


DELSTP (L) 

Displacement  thickness  at  the  throat  in  cm, 
on  Lth  profile 

DEN0M 

One-fourth  of  the  effective  flow  area  at  the 
throat  for  a channel  (cm'^) 

DYDX 

Slope  dy/dx  for  the  first  profile  in  r 
channel 

DZDX 

Slope  dz/dx  for  the  second  profile  in  a 
channel 

FACl 

Effective  ordinate  of  first  profile  in  a 
channel  (cm) 

FAC  2 

Effective  ordinate  of  second  profile  in  a 
channel  (cm) 
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NERR0R 

N0ZZLE 

NRCTCfr 

0NE 

PIV 

SUMl 

SUM2 

SUM3 

UTH 

VISCC 

DELP(L) 


SQRTAE 


X 


Square  root  of  the  effective  area  ratio#  '/^ 
Axial  coordinate  in  nozzle  (cm) 


Y 


Geometric  ordinate  of  first  profile  in  a 
channel  (cm) 


Z 


A 

AE 


Geometric  ordinate  of  second  profile  in  a 
channel  (cm) 

4,71  Subroutine  AGSC^LN 

Trial  value  of  geometric  area  ratio 

Effective  area  ratio 


AEG  Constant  term  in  equation  relating  the 

geometric  and  effective  area  ratios  for  a 
channel 

AG  Pinal  solution  for  the  geometric  area  ratio 


DA 

DEL  (L) 
DELP (L) 
DSTP  (L) 


Dummy  argument  in  call  to  GE0MAR;  represents 
X-derivative  of  geometric  area  ratio  (not 
used) 

Displacement  thickness  divided  by  RO,  for 
boundary  layer  on  Lth  profile 

Displacement  thickness  (cm)  for  boundary 
layer  on  Lth  profile 

Displacement  thickness  at  the  throat  (cm) 
for  boundary  layer  on  Lth  profile 


F 


Function  which  is  0 when  the  correct  geometric 
area  ratio  has  been  found 


F0  F value  in  previous  step  of  iteration 

IC0UNT  Iteration  counter 


L 


D0  index  over  channel  profiles 


RNAME 

SQRTA 


Routine  name  for  call  to  DUMP  routine 
Square  root  of  geometric  area  ratio 


UPD0WN 


X 


Indicator?  1.0  if  downstream  solution  is 
desired  by  calling  routine,  -1.0  if  upstream 
solution  is  desired 

Axial  coordinate  in  nozzle  (cm) 


1 

% 


XL 


Terapora3:Y  storage  for  previous  value  of  X 


Xj2f 


Value  of  X in  previous  iteration 


f 

I 


I 


Y 

YOZO 


Z 


AG 


Geometric  ordinate  of  first  profile  in  a 
channel  (cm) 

YqZq, product  of  profile  ordinates  at  the 
throat;  one-fourth  of  the  geometric  throat 
area  in  a channel  (cm^) 

Geometric  ordinate  of  second  profile  in  a 
channel  (cm) 

4.72  Subroutine  AXFIT 

Geometric  area  ratio 


UPD0WN 


Indicator;  -1.0  upstream  of  throat,  1.0 
downs  trecim 


I(J) 

II 

IV 

JJ 

JV 


4.73  Subroutine  AXSECT 

List  of  species  for  which  cross  section  data 
are  wanted  (common  arrt  ’) 

Index  of  first  species  in  species  pair 

Location  of  species  II  in  the  I array 

Index  of  second  species  in  species  pair 

Location  of  species  JJ  in  the  I array 


L 

LL 

LQ 

LQL 

N 

NN 

AE 

AG 

AGJ 

AGl 

AJ 

ALPR 

AM 

AMI 

AS 


Running  index  for  D0  ].oops 

Step  in  cross  section  computations  where 
data  are  to  be  added 

Position  of  species  pair  in  IQ#JQ  List 

Position  in  IQ,JQ  list  where  additional 
species  pairs  are  to  be  added 

Number  of  species  pairs  added  to  IQ,JQ  list 

Number  of  species  from  I array  to  be  con- 
sidered in  adding  data 

4.74  Subroutine  BLAYER 

Effective  area  ratio 

Geometric  area  ratio 

Factor  proportional  to  in  numerical 
integration  from  to  the  first  flow  point 

Geometric  area  ratio  in  numerical  integration 
from  Xg  to  the  first  flow  point 

Factor  proportional  to  r^^ 

Natural  logarithm  of  the  Prandtl  number  at 
the  reference  temperature 

Mach  number 

Mach  number  in  numerical  integration  from  Xg 
to  the  first  flow  point 

Sound  speed  (cm/sec) 

W/RO  parameter  used  in  averaging  the  correlat 
parameter 


AVCON 


AX 

B 

BLINTI 

BMl 

BX 

CC 

C0SB(L) 

Cl 

C2 

DADX 

DLM 

DMDX 

DUDX 

DX 

DXI 


Intermediate  q .ality,  cq.  I(194d)  in  curvcfit 
to  shear  parameter 

Coefficient  of  n in  linear  approximation  to 
N(n,S„),  eq.  1(164) 

Value  of  integral  I,  eq.  1(172),  at  the  b'  ;in- 
ning  of  a step  in  the  boundary  layer  solution 

B-1 

Intermediate  quantity,  eq.  I(194e),  in  curve- 
fit  to  shear  parameter 

I-IAg  in  low  Mach  number  regir.n  of  integration 
from  Xq-  to  first  flow  point 

Cosine  of  angle  between  tangent  to  Lth  profile 
and  the  nozzle  axis 

Intermediate  quantity  in  quadrat: z solution 
for  dM/dx 

Intermediate  quantity  in  quadratic  solution 
for  dM/dx 

dAg/dx,  derivative  of  geometric  area  ratio 

d^n  M/dx,  logarithmic  derivative  of  Mach  num- 
ber 

dM/dx,  derivative  of  Mach  number 

Derivative  of  nondimen sional  velocity 

Axial  distance  from  the  previous  flow  point 
to  the  current  one 

Change  in  ( in  the  current  step 
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DX0 

Size  cf  last  previous  “final"  step,  apeirt 
from  steps  at  model  points 

DXP 

Distance  fran  the  point  before  the  previous 
flow  point  to  the  previous  flow  point 

DXSQ 

(DX)2 

DX2 

Dx  + d:<p 

DYZDX(L) 

Derivative  of  the  radius  of  the  Lth  profile 
with  respect  to  the  aerial  coordinate 

EKl 

Coefficient  A in  eq.  1(164) 

ENPRIM 

n',  eq.  1(1?:': 

FINAL 

Logical  flag;  "false"  when  BLAYER  is  called 
during  an  intermediate  calculation  of  the  non- 
equilibrium  integration;  "true"  for  the  final 
calculation  of  conditions  at  each  flow  point 

FO 

Intermediate  quantity  in  curvefit  to  shear 
parameter,  eq.  1(194) 

F2 

Intermediate  quantity  in  curvefit  to  shear 
parameter 

F3 

Intemediate  quantity  in  curvefit  to  shear 
parameter 

F4 

Intermediate  quantity  in  curvefit  to  shear 
parameter 

GAMMAE 

Effective  specific  heat  ratio,  = a^w/PT, 
used  in  calculation  of  effective  hypersonic 
parameter 

GJ(I) 

Species  concentrations  (raoles/g) 

H Nondimenui  lal  enthalpy,  hWQ/RQl'Q 
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HC0N 

HE 

HF 

EFPl 

HREF 

HTR 


HTRPl 


HW 

HO 

I 


ITYi^S 


J 

K 

L 

LPR 


IPRIME(L) 


RqToA^O*  factor  for  converting  nondimensicnal 
enthalpy  into  cal/g 

Free-streain  specific  enthalpy  (cal/g) 

Fom  factor,  c*/G 

HF  + 1 

Reference  entlialpy 
Incon^ressihle  form  factor,  Hj^nc 
HTR  +1 

Enthalpy  of  the  gas  at  the  wall  temperature 
Specific  stagnation  enthalpy  (cal/g) 

P0  index 

Index  for  type  of  nozzle  geometry 
ITYPE  = 1 Tvfo-dimensional  nozzle 

ITYPE  = 2 Axisimutietric  nozzle 

ITYPE  = 3 Rectangular  channel 

D0  index 

D0  index  over  the  cold  species 

D0  index  running  over  the  nozzle  or  channel 
profiles 

Index,  equal  to  LPRIME(L) 

Equal  to  2 for  L = 1,  equal  to  1 for  L = 2 

Logical  flag;  "true”  if  no  mole  fraction  has 
changed  by  0.01  since  the  last  flow  point  at 
which  transoort  properties  were  calculated 


0LDMF 


jiftlEGA 


I 

I 

1 


0H1 

0NE 

0RDIN(L) 

0RD1 

0RD2 

P 

PRPWR 

PRW 

R 

RA 

RAP 

RB 

RER 

RH 

RMR 

RWMW 

R1 


CO  , viscosity-ten^rature  exponent  in  eq,  I 
(191) 

Max  (1-  CO  ,0) 

1. 

$ for  the  boundary  layer  on  the  Lth  profile, 
eq.  1(171) 

A value  of  5 used  in  the  numerical  integration 
frc«a  Xq  to  the  first  flow  point 

See  0RD1 

Bfondimensional  pressure,  p/Pq 
(PRREF)®*^^ 

Prandtl  nuiiber  at  the  wall  tenperature 

Ratio  of  local  nozzle  radius  to  throat  rad- 
ius for- axisymmetric  nozzles 

Intemediate  quantity  in  curvefit  to  Reynolds 
Zina  logy  factor 

Reynolds  analogy  factor  R^  in  eq.  1(195) 

Intermediate  quantity  in  curvefit  to  Reynolds 
analogy  factor 

Reynolds  number  based  on  RO 

Nondimensional  density 

Pfi  ratio. 


Radius  of  a profile  in  the  numerical  integra- 
tion from  Xq  to  the  first  flow  point 
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R2 

SIGH 

SOT 

SWFAC 

SWFAC2 

SWPl 

T 

TE 

TEP 

THETAl 

TR 

TRGALC 

TREE 

TREFP 

TRP(I) 

TRPSV(I) 

U 


See  R1 

Hypersonic  pareimeter  ct 

Intemediate  queintity  in  transverse  curvature 
correction,  eq.  1(187) 

(S^  + 1)  [ 7 + 3.4  (S^  + 1)3 

1 + 4.5  (S„  + 1)°*^ 

Nondimensional  temperature , T/Tq 

Free  stream  temperature,  T 

Free  stream  temperature  at  which  transport 
property  calculations  were  last  done 

Momentum  thicToiess  based  on  eq.  1(185),  div- 
ided by  RO 

T*/Ty^,  ratio  of  reference  temperature  to  wall 
temperature 

Logical  flag,  .TRUE,  if  transport  properties 
were  calculated  at  the  ci’’^rent  flow  point 

Reference  temperature  (®K) 

Reference  temperature  at  which  transport 
properties  were  last  calculated 

Array  equivalenced  to  common  block  /TRPR0P/, 
to  permit  processing  these  data  in  a D0  loop 

Array  used  to  save  the  transport  properties 
at  the  free  stream  temperature 

Nondimensional  velocity,  u/ug  (see  US  in  com- 
mon block  /SS/) 
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UPRIME 

VISCR 

VISCW 

VR 

WD 

WW 

X 

XII 

XL 

XP 

XPXP 

XSAVE(I) 

XSNV 

XTEST(J) 

XX 

VZ(L) 

ZERO 


Free  stream  velocity,  u (av'sec) 

Viscosity  at  the  reference  temperature  (poise) 
Viscosity  at  the  wall  temperature  (poise) 
VISCR/Visew 

Weight  factor  w in  calculation  of  d <S*/dx; 
eq.  1(419) 

e*"  in  eq.  1(217);  weighting  factor  for 

lip  in  the  calculation  of  the  averaged  corre- 
lation parameter,  n 

Axial  coordinate  (cm) 

Previous  value  of  XI 

Shear  parameter  Jl  , eqs,  1(194) 

Previous  value  of  x (cm) 

X + XP 

Temporary  storage  for  species  mole  fractions 
SAVEC(I) 

min  (n, 0);  used  in  place  of  n in  calculation 
of  HTR  to  ensure  the  use  of  a nonpositive 
value 

Mole  fraction  of  the  Jth  species  used  in  the 
last  previous  calculation  of  transport  prop- 
erties 

Axial  coordinate  variable  in  numerical  inte- 
gration from  :<Q 

Radius  of  the  Lth  profile  (cm) 

0. 
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4.75  Subroutine  BLCALL 


FINAL 


GJ(J) 

J 

I 

J 

K 


M 


MADD 


MM 


MV 


Logical  subroutine  argument;  .FALSE,  when 
BLAYER  is  called  during  an  intermediate  cal- 
culation of  the  nonequilibrium  integration, 
.TRUE,  for  the  final  calculation  of  condi- 
tions at  the  end  of  each  successful  integra- 
tion step 

Species  concentrations  in  moles/g 

D0  index  over  the  species 

4.76  Subroutine  BXSECT 

First  index  of  species  pair  in  V array 

Second  index  of  species  pair  in  V array 

Value  of  KQ  for  step  L of  cross  section  compu- 
tations 

Index  of  step  in  cross  section  computations 
which  is  currently  being  considered 

Number  of  sets  of  constant  factors  to  be  used 
in  computations,  for  option  KQ  = 14  only 

Index  used  in  locating  species  pairs  in  V 
array 

MM  + 1 and  MM  ^•2  are  the  locations  of  the  cur- 
rent species  pair  in  the  V array 

Index  of  last  parameter  in  V array  for  step 
L-1  of  the  computations 


4.77  Subroutine  C0MM 


ALGJ  (J) 


^n  7j/  natural  logarithru  of  the  Jth  species 
concentrati on 
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CLKF 

/n  natural  logarithm  of  the  forward  rate 

constant 

CLKR 

/n  kj-,  natural  logarithm  of  the  reverse  rate 
constant 

i 

1 

\ 

CLTBF 

/n  where  the  svim  is  over  the 

body  species  in  a reaction 

third- 

i 

1 

CI22 

in  (Z2) 

1 

CI23 

in  (Z3) 

3 

EF 

6^^  in  eq,  I (321c) 

ER 

e in  eg,  I(321c) 

GJ(J) 

Concentration  ( ^j)  of  fke  Jth  species 

(mole/g ) 

I 

ICHG 

IC0UNT 

ICYCLE 

IPAI 


D0  index  over  the  reactions 

Equal  no  1 for  a neutral  spec:  3,  equal  to  2 
for  a charged  (ionic)  species 

Counter  for  number  of  times  C0MM  has  been 
called  in  a run 

Inteirval  in  IC0UNT  at  Ich  ISW5B  is  set  equal 
to  1 to  provide  diagno;j::lc  dvmps  in  subrou- 
tine C0MM,  EXACT,  RNKT,  and  PRTA 

Index  of  atomic  species  produced  in  current 
reaction  for  KTF(I)  = 4 

D0  index  over  the  species 

Indicator  for  temperature  dependence  of  for- 
ward reaction  rate  constant;  for  KP  = 1,  kf 
is  a function  of  T;  for  KP  = 2,  it  is  a func- 
tion of  T^.  For  other  values  of  KP,  see  dis- 
cussion of  KTP  input  in  Sec.  2,3  of  Vol.  II. 
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I 


* • KR 

1 

f 

I 

! 

i 

! I^GC 


QELAS 

QF 

QR 

R 

RCALC 

RKF 

RKR 

SUMF 

SUMR 

TAU 

TEP 


Indicator  for  temperature  dependence  of  re- 
verse reaction  rate  constant;  for  KR  = 1,  kj. 
is  a fi.nction  of  T;  for  KR  = 2,  it  is  a func- 
tion of  Tg 

Logical  indicator  for  method  of  calculation 
of  PICHI(I) ; for  L0GC  = .FALSE.,  PICHI(I)  is 
computed  as  Pi  for  I0GC  = .TRUE.,  it  is 

calculated  as  -expC-^n  Pi+-*n  (1- to 
avoid  possible  underflov/  of  the  ej{ponential 
function  in  Pi  = exp  (^n  Pj|^) 

1. 

Energy  transfer  to  the  electron  gas  as  a re- 
sult of  elastic  collisions  (cal/cm^  sec) 

in  eq.  I(32Ib) 

^ri  ^(321b) 

Effective  nozzle  radius  for  loss  of  resonance ’ 
radiation 

Logical  indicator;  if  .TRUE.,  R has  already 
been  computed  for  current  flow  point 

kf,-  forward  rate  constant 

kj.,  reverse  rate  constant 

i:  ViT  (^-1  :+in'y.) 
j=l  J 3 

_n 

-jy' ..  (J’n  /)  + /n  y.) 

j-l  ^3  3 

Optical  thickness  based  on  R for  resonance 
radiation 

Electron  temperature,  Tg  (°K) 
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fe 


TEQ 

T ^ 

T6 

j=l  ^ ^ 

T7 

2 V over  the  third-body  species  for  a reac- 
tion 3 

VEJ 

Collision  frequencv  factor  iri  the  calcu- 

lation of  energy  transfer  to  the  electron  gas 
by  elastic  collisions 

VIC 

Electron-ion  elastic  collision  frequency  { 
divided  by  the  ionic  species  concentration 

^ j 

VICl 

(8/3)'/  TT/rttg  e%p/(2k)^'^^,  where  trig  is  the 
electron  mass  (g) , e is  the  electronic  charge 
(esu) , Nq  is  Avogadro's  c nstant,  and  k is 
Boltzmann's  constant 

'/IC2 

kV(  TT  e®) 

VNC 

(4/3)  /sk/(  wioq)  Nq 

VNCC 

Electron-neutral  collision  frequency  ( qa) 

divided  by  the  neutral  species  concentration 

( 7 j) 

Y 

Radius  of  first  channel  profile,  cm 

Z 

Radius  of  second  channel  profile,  cm 

Z1 

u,  natural  logarithm  of  flow  velocity  in 
cm/sec 

Z2 

R T' , where  T'  = T for  KR  = 1 and  T'  = 
for  KR  = 2 (cm^  atm/mole) 

Z2F 

RqTq  (cm"^  atnv^mole) 

Z3 

f>  RqT'  (see  Z2) 
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4.78  Subroutine  CXSECT 


. i . 


1(0) 

J 

L 

M 

CPJE 

CTSAVE 

DELIl(L) 

DELI2 (L) 

DEI^l(L) 

DEI^2(L) 

DEN 

HJE 

I 

ITRY 

K 

SENTE 


New  index  of  species  for  which  old  index  is  J 

Second  index  of  species  pair 

First  index  of  species  pair 

Temporary  variable 

4,79  Subroutine  DERIVS 

Temporary  storage  for  specific  heat  of  the 
electrons 

Temporary  storage  for  the  nondimensional  gas 
temperature  T/Tq 

S for  the  Lth  profile  (eq. 

^^2  profile  (eq, 

S t for  the  Lth  profile  (eq. 

ol 

ie 

S ^2  profile  (eq. 

Denominator  in  eq.  1(424) 

Temporary  storage  for  nondimensional  enthalpy 
of  the  electron  gas  (H^/RoTo) 

D0  index  over  species 

Counter  for  iteration  to  obtain  self-consistent 
solution  for  the  boundary  layer  displacement 
thickness  (Section  7.6  of  Vol.  I) 

D0  index  over  profiles 

Temporary  storage  for  nondimensional  entropy 
of  the  electron  gas  (S^^/Rq) 


1(424); 
1(424)) 
1(424) ) 
1(424)) 
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4.80  Suhroutino  DSMS0L 


A 


I 

J 


KS 


Matrix  initially  containing  the  coefficients 
and  constants  for  a system  of  linear  equations 
to  be  solved: 


^11^1  ^12'"2  + •••  + ^li^i  “ 

^21^‘l  ^22^2  + ®2i^i  '^2 


'^il'^l  + ^-.2^2 


+ a. .X-  = b. 

IX  1 1 


The  coefficients  a-j]^  are  stored  in  the  locations 
A(j,k),  for  j=l  to  i and  k=l  to  i.  The  constant 
terms  bj  are  stored  in  A(j,i+1),  for  j=l  to  i.  The 
solution  values  X]^  are  written  into  the  locations 

A(k,i+1)  for  k=l  to  i,  that  is,  the  locations  origi- 
nally occupied  by  the  b j . 


Number  of  equations  in  the  system  to  be  solved 


D0  index  running  from  1 to  I 


D0  index  running  from  1 to  I 


Error  indicator;  nonzero  value  indicates  sin- 
gular matrix  of  coefficients 


L Counter  for  matrix  elements  during  rewriting 

of  the  matrix  in  close-packed  form 

LM  First  index  for  close-packed  form  of  matrix 

LN  Number  of  columns  already  filled  in  close- 

packed  matrix 

LNl  Column  index  (second  index)  in  close-packed 

matrix 


Ml 


I + 1 
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1 


First  dimension  of  A in  the  dimenrion  state- 
ment in  the  calling  routine 

N + 1 


RNAflE 


Routine  nzime  for  callino  DlJ?4P  routine 


4.81  Subroutine  DLMP 


RNAMB 


Name  of  routine  froai  which  DUMP  was  called 


4.82 


oumpe: 


No  local  variables. 


4.83 


routine 


SIGMA 


SSIG 


Species  index 

Electrical  conductivity  in  mhos/cm 

(eA)V/r 


4.84  Subroutine  ELTIME 


C;.LLED 


Logical  indicator,  initially  .FALSE.,  set  to 
.TRUE,  when  ELTIME  is  first  called 


Elapsed  time  since  last  printed  time  (seconds) 

Elapsed  time  from  beginning  of  execution 
(seconds) 

Elapsed  time  from  beginning  of  execution 
(minutes) 

ET  argument  value  passed  from  calling  routine 
Previous  value  of  ET0 

Elapr;cd  time  from  start  of  execution  in  milli- 
seconds 
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i 


i 

K 


IP 


EF 

ER 

EO 


IR 

IT 


I 


QF 


QR 


RO 

TE 

THR 


CTSAVE 

I 


„i-.- 


Control  for  printing  the  time;  zero  value 
suppressed  the  print 

4.85  Subroutine  EPART 

Energy  gained  by  the  electron  gas  in  the  for- 
ward direction  of  a reaction  (cal/mole) 

Negative  of  the  energy  gained  by  the  electron 
gas  in  the  reverse  reaction  (cal/mole) 

Reaction  energy  to  be  partitioned  between 
radiative  losses  and  heating  of  the  electron 
gas^  pQ  (cal/mole) 

Reaction  index  in  the  list  of  reactions  for 
the  current  gas  model 

Indicator  (ITR)  of  the  rule  for  partitioning 
the  reactioi'x  energy  in  the  current  reaction 

Energy  lost  by  radiation  in  the  forward  reac- 
tion (cal/mole) 

Negative  of  energy  lost  by  radiation  in  the 
reverse  reaction  (cal/mole) 

Universal  gas  constant,  cal/mole-°K 

Electron  temperature  (°K) 

3Rq/2,  where  Rq  is  the  universal  gas  constant 
in  cal/mole-°K 

4.86  Subroutine  EOCALC 

Variable  used  to  save  and  restore  the  initial 
value  of  the  nondimen si onal  temperature  CT 

D0  index 


IL  I + ISC 
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J 

index 

K 

D0  index 

L 

I + ISC 

N 

Iteration  counter  for  Newton-Raphson  solution 
of  eq’^.ations  1(233) 

P 

Pressure  (atm) 

\ 

RNAME 

Routine  name  for  calling  DUMP  routine 

i 

T 

Temperature  (°K) 

ZA 

Nev/ton-Raphson  correction  factor  (1  + hn’^)  to 
mole  fractions,  eq.  1(235) 

I? 

4.87  Subroutine  EXACT 

AAA(L,i4) 

Array  of  coefficients  and  constants  foi  sys" 
tern  of  lin  ar  equations 

i 

h 

DGJ(J) 

d 'y  j/dx 

EC0EF 

l/(  /D  u RqTo) 

GJ(J) 

y y species  concentrations,  i>ic  les/g 

1 

I 

D0  index 

J 

D0  index  over  species 

K 

I - ISC 

NE 

Number  of  equations  to  be  solv''-'  for  lates 
of  cliange  of  dependent  variables  during  the 
noncqni librium  integration 

SUMTDG 

n rp  d y' ' 

■f'  ^ - -3  for  chemical  nore-,  li librium 

j = l ^0 

T d "y  cr^  T d O'  • 

models;  — r— ^ 7= — — for  electronic  non- 

^0  j = 2 C 

1 

equilibrium  models 
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f 

I 4*“ 

I ^ ' 


* H 


-1  + V.  + :x. - 2 V.  . ^ 

V 3^1  V 

(u/Us)^Aq 

4.88  Function  EXP 
Value  of  function 
Subroutine  argument 

4.89  Subroutine  FIMDX 

> 

Geometric,  area  ratio  (from  calling  routine) 

Geometric  area  ratio  based  on  a trial  value 
of  X 

Derivative  of  oeometric  area  ratio  with  res- 
pect to  X (cm“^) 

Slope  of  Ith  profile  in  channel 

Error  in  geometric  area  ratio  AR  at  current 
value  of  X 

Smallest  negative  error  in  AR  for  any  previous 
trial  value  of  X 

Smallest  positive  error  in  AR  for  any  previ- 
out  trial  value  of  X 

Indicator  of  entry  point;  1 for  PINDX,  2 for 
FINDXC 

Index  (1  or  2)  of  the  profile  whose  ordinate 
varies  most  rapidly  downstream  of  the  throat 
in  a channel 


Iteration  counter 


C) 

RNAME 

Routine  name  for  call  to  DUMP  routine 

UPD0WN 

Indicator;  ~1.0  if  upstream  solution  is  de- 
sired, 1.0  if  downstream  solution  is  desired 

UPPER 

Logical  indicator;  .TRUE,  if  a positive  ERA 
has  been  found  at  some  trial  value  of  X 

' 

V 

Trial  value  of  IXl  (cm) 

VL 

Trial  value  of  iXl  corre^onding  to  error 
ERRL 

V0 

Trial  value  of  |X|  in  previous  iteration  step 

1 

it 

VD 

Trial  value  of  Ixj  corresponding  to  error 
ERRU 

1 

! 

X 

Final  solution  for  X (cm) 

f 

t (1 

Z(I) 

Ordinate  of  the  Ith  profile  in  a channel 

4.90  Subroutine  FF(^ZEQ 

! 

1 

AR 

Common  variable,  used  here  for  the  gecanetric 
area  ratio 

1 

1 

1 

AS 

Sound  speed  (cin/sec) 

1 

i 

\ 

BLVAR(I) 

Array  equivalenced  to  the  contents  of  common 
block  /BLOUT/ 

1 

5* 

t 

BLVAR0(I) 

BLVAR  values  at  preceding  flow  point 

T 

/ 

* 

\ 

I 

1 

t 

BLVARS(I) 

BLVAT  values  at  the  current  regular  flow 
point;  used  in  interpolating  at  a model  point 

i . 

1 

? 

CLNMA 

Logarithm  of  the  molecular  weight  in  the  res- 
ervoir 

1 

[ 

'{ 

CTSAVE 

Nondimensional  temperature  at  the  regular 
flow  point  following  a model  point 

CTSTAR  The  nondimensional  temperature  (CT)  value  at 

the  flow  point  preceding  the  throat,  in  sol- 
utions including  the  boundary  layer 

CTl  Second  most  recent  trial  value  of  CT  in  the 

iteration  to  find  the  conditions  at  a model 
point 

CT2  Most  recent  trial  value  of  CT  in  iteration 

to  find  the  conditions  at  a model  point 

CXSA’/E  X coordinate  of  the  regular  flow  point  fol- 

lowing a model  point 

DELBI^(I)  For  1=1,  2,  the  nondimensional  boundary 

layer  displacement  thickness  for  the  Ith  pro- 
file at  the  preceding  flow  point 

DELBLP(I)  For  1=1,  2,  the  nondimensional  boundary 

layer  displacement  thickness  for  the  Ith  pro- 
file at  the  point  before  the  preceding  flow 
point 

DELT  Decrement  in  nondimensional  temperature  CT  in 

calculation  of  frozen  throat  conditions 

DELTSV  Variable  used  to  save  the  input  value  of  DELTl 

DELTV  Current  decrement  in  nondimensional  tempera- 

ture  CT  


ERRX  Position  error  in  iteration  to  determine  the 

conditions  at  a model  point 

FLAG  Indicator  for  upstream  and  downstream  regions, 

for  use  by  the  geometry  subroutines.  Negative 
value  indicates  an  upstream  position,  positive 
value  a downstream  position 
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F1.P2,F3 

GJ(J) 

I 

IPASS 

IRSTRT 

IS0IiN 

IS^NIC 

ISWTCH 

ITS 

J 

K 

LASTPT 

M 

M0DLPT 

N 


Values  of  nondimens ional  mass  flux  in  itera- 
tion to  determine  the  frozen  throat  condi- 
tions 

Species  concentrations,  mole/g 
D0  index 

Indicator  for  iteration  to  take  the  boundary 
layer  displacement  thickness  into  account  in 
the  determination  of  reservoir  conditions. 
IPASS  = 1 causes  a return  to  the  main  program 
after  the  throat  has  been  reached 

Counter  for  number  of  times  solution  has  been 
restarted  with  a lower  value  of  W to  suppress 
instability  due  to  coupling  of  the  boundary 
layer  and  the  inviscid  solution 

Indicator  for  type  of  flow  solution: 

IS0LN  = 1 Frozen  solution 

IS0LN  = 2 Equilibrium  solution 

Indicator  for  region  of  flow  solution: 

IS0NIC  = -1  Upstream  region 

IS0NIC  = 0 Sonic  point 

IS0NIC  = 1 Downstream  region 

Counter  for  number  of  flow  points  beyond  the 
throat 

Index  of  the  next  specified  test  section  dia- 
meter (TSDIAM) 

D0  index  over  gas  species 

D0  index 

Indicator  for  last  point  in  flow  solution  (at 
CX  = CXMAX) 

D0  index  over  channel  profiles 

Logical  indicator;  if  .TRUE.,  a model  point 
is  being  calculated 

D0  index 
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NMPI 


Counter  for  nunO^er  of  iterations  to  determine 
the  conditions  at  a modt  L point 


srip 


Logical  variable  used  to  indicate  that  con- 
ditions at  a model  point  have  just  been  det- 
ermined 


S^LN(I,J)  Hollerith  array 


SWTCH 


TSTEPC 


T1,T2,T3 


Logical  indicator;  if  .TRUE.,  FR0ZEQ  has  be- 
.^un  taking  the  displacement  thickness  into 
account  in  calculations  of  the  flow-point 
position 


-X  t 


*-(^n  Pq)/Wq 

Logical  indicator  for  special  control  of  tem- 
perature decrement  far  downstream,  to  prevent 
distance  of  successive  flow  points  from  becoitt- 
ing  too  large 

Nondimensional  temperature  values  in  iteration 
to  determine  frozen  throat  conditions 


XFRAC 


XIAST 


Xiy^Z^DEL 

XM0D1 


Distance  froti  preceding  flow  point  to  model 
point,  divided  by  distance  from  preceding  flow 
point  to  current  point 

Position  of  preceding  flow  point  (cm) 

Model-point  position  (cm) 

Position  of  the  next  model  point  in  the  geo- 
metric sequence  of  model  points  (cm) 

Position  of  the  preceding  flow  point  (cm) 

Position  of  the  point  before  the  preceding 
flow  point  (cm) 
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XI 


X2 


Z 


AN 


A2 

ARG 

DADR 


DD 

DELRI0 


DELSTP 

D2IA 


J 

N 


Position  of  the  flow  point  corresponding  to 
the  second  most  recent  trial  value  of  CT  in 
the  iteration  to  find  the  conditions  at  a 
model  point  (cm) 

Position  of  the  flow  point  corresponding  to 
the  most  recent  trial  value  of  CT  in  the  it- 
eration to  find  the  conditions  at  the  model 
point  (cm) 

FI  - P2  + F3  - F2 

4,91  Subroutine  GE0M 

Effective  area  ratio  corresponding  to  the  cur- 
rent trial  value  of  /> , based  on  the  area  ratio- 
density  relation,  cq.  1(383) 

Square  of  the  effective  area  ratio 

2C(Ae-l)/  o< 

, derivative  of  the  effective  area 
ratio  with  respect  to  nondimensional  density 

Correction  in  nondimensional  density 

Absolute  value  of  the  difference  between  p/  Pq 
and  the  nondimensional  density  at  the  throat, 
based  on  approximate  solution  near  throat 

Displacement  thickness  at  the  throat  (cm) 

Cd^(/fn  Ag)/dx^3  , the  second  derivative  of 
the  logarithm  of  the  effective  area  ratio  at 
the  throat 

D0  index  over  the  profiles  in  a channel 
Iteration  counter 

Number  of  upstream  sections  in  the  curvefit  to 
a profile 


NSUJ 


mmmmim 


t 


( 


^MZ 

0PHa 

RKAME 

SGN 


Z 

ARATI0 

DAB 

DjjkIVA 

DRV  (I) 
D^X 
DZDX 
I 

lENTRY 


1.  - Z 

1 + <^/2,  wh.ere  is  the  exponent  in  the 
density-area  ratio  relation  1(383) 

Routine  name  for  call  to  DUMP 

~1  if  dAg/dx  is  positive,  +1  if  dA^/dx  is  nega- 
tive 

Consistency  check  on  x and  /O  values;  if  pos- 
itive, X and  />  data  are  inconsistent 

4.92  Subroutine  GE0MAR 
Geometric  area  ratio 

Difference  between  X and  the  x-coordinate  of  the 
center  of  a circular  profile  section 

dA„/dx,  derivative  of  geometric  area  ratio 
(cm"’^) 

Slope  (derivative)  of  ordinate  for  Ith  pro- 
file 

Slope  of  ordinate  for  first  profile,  after 
rescaling  area 

Slope  of  ordinate  for  second  profile,  after 
rescaling  area 

Index  of  two  profiles 

Index  of  entry  point:  1 - GE0MAR;  2 - GMAR; 

3 - GMAR2;  4 • GMAR3 


ISJ 


Shape  index  for  a profile  section 


L.'  j 

K 

NSMl 

Q 

RAD(l) 

RAT 

SN(i) 

SQTRSA 

S1(J) 

<L- 

S2(I) 

X 

Y 

Z 

CAPQ(K) 

CCI(I) 


Index  for  the  sections  in  a profile 

Index  for  the  profile  section  in  which  X 
lies 

Number  of  sections  in  a profile  minus  1 

Difference  in  ordinate  between  a point  on  a 
circular  profile  section  and  the  circle  center 
(cm) 

Ordinate  of  the  Ith  profile  (cm) 

Ratio  of  a profile  ordinate  to  the  ordinate 
at  the  throat 

-1.0  for  1=1,  + 1.0  for  I = 2 

Square  root  of  area  rescaling  factor  RSA 

Unrescaled  geometric  area  ratio;  or  ratio  of 
ordinate  to  ordinate  at  the  throat  for  Ith 
profile 

Derivative  of  geometric  area  ratio;  or  ratio 
of  derivative  of  ordinate  to  ordinate  at  the 
throat  for  Ith  profile  (cm“^) 

Axial  coordinate  in  nozzle  (cm) 

Ordinate  of  first  profile  (cm) 

Ordinate  of  second  profile  (cm 

4,93  Subroutine  INGAS 

Q^,mamber  of  gram-atoms  of  the  hth  chemical 
element  per  mole  of  the  cold  gas 

Intermediate  variable  in  the  calculation  of 
the  molecular  weights  of  species  from  atomic 
weights  of  elements 


I 


j 

1 


I 

I 

s 

I 

s, 

\ 

\ 


e 


( 


IL 


J 

K 

L 

SUM 


Species  index 

Index  running  from  c + 1 to  n 

Element  index 

Index  running  from  1 to  c 

Index  running  from  c + 1 to  n 

Dummy  variable  used  for  accumulating  summa- 
tions 


I 

II 
J 

K 

L 

SPRP (M,II) 

T1 

T2 

T3 

T4 


I 

II 


4,94  Subroutine  INIT 

Species  index  in  the  current  gas  model 

Species  index  in  the  master  list  of  species 

Index  of  additional  vibrational  modes  in  tri- 
atomic  molecules 

Number  of  electronic  levels  for  a species 

Index  of  the  electronic  levels  for  a species 

Array  containing  species  property  data  in  com- 
mon /SPEC/ 

Reservoir  temperature  Tq(®K) 


4.95  Sxibroutine  KANDMtJ 
Species  index 

I-l 
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c 


J 


L 


R 

U 

V 
W 

Y 

ZK(L) 


I 

II 
J 

L 

NI 

NJ 

1 


Species  index 

Index  of  property  being  calculated t L = 1 | 

for  translational  thermal  conductivity,  I 

L = 2 for  viscosity  I 

( cx  ) I 

Weighting  factor  used  in  computing  a | 

from  eq.  1(86)  I 

Variable  used  to  accumulate  numerator  in  I 

eq.  1(86) 

Temporary  variable  used  in  computing  denomi- 
nator in  eq.  1(86) 

Temporary  variable  used  in  computing  mamer- 
ator  in  eq.  1(86) 

Temporary  variable, used  for  accumulating 
denominator  in  eq.  1(86)  and  numerator  in 
eq.  1(85) 

ZK(1)  * is  the  translational  thermal  con- 

ductivity in  milliwatts/cm-®K,  7,K{2)  • is 
the  viscosity  in  millipoise 

4.96  Subroutine  KINT 

Species  index 

I-l 

. • I 

Summation  index  for  sum  over  species  pairs  | 

with  J < I I' 

Index  of  property  being  computed  (see  discus- 
sion of  KINT  in  Sec.  3.28) 

Species  index 

Summation  index  for  sum  over  species  pairs  I 

with  NJ  > NI  I 
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N1 

ZKINT 


CAPQ(I) 

C/Z5M1(I,J) 

C0M2(I,J) 

CXMAXI 

I 

J 

K 

KDQl 

NVJXI 

SBJ(J) 
SHJAP ( J) 
THEVP(J) 

W)2}RD(I,J) 


N + 1 

ZKINT  is  the  internal  thermal  conducti- 

vity in  milliwatt/cm-°K 

4.97  Subroutine  LIST 

number  of  gram-atoms  of  the  kth  chemical 
element  per  mole  of  the  cold  gas 

Hollerith  array  for  output  (see  DATA  state- 
ment ) 

Hollerith  array  for  c .tput  (see  DATA  state- 
ment) 

Distance  beyond  throat  at  which  case  will  be 
terminated  (inches) 

D0  index 

D0  index 

D0  index 

KDIM  + 1 

Number  of  specified  distances  WXI  from  the 
leading  edge  of  a wedge  model 

bj,  eqs.  1(51) 

Formation  enthalpy  of  the  Jth  species,  cal/mole 

Characteristic  vibrational  temperature  for  the 
Jth  species,  °K 

Hollerith  array  for  output  (see  DATA  statement) 
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4.98  Subroutine  MATINV 


I 

I 

i 


I 


A 


I 

J; 


AA 

B 

BB 

BIG 

I 

IV  (K) 
J 

JA 

JB 

JJ 


K 

K1 


L 

M 

MM 

Ml 

n?:j 


Original  matrix;  replaced  by  inverse 

Temporary  storage  used  in  interchanging  col- 
umns 

Temporary  storage  used  in  interchanging  rows 

Temporary  storage  used  in  reduction  of  off- 
diagonal  elements 

Pivotal  element  in  a column  (largest  absolute 
magnitude) 

D0  index 

Index  array  for  recording  interchanges  of  rows 

Temporary  storage  used  in  interchanging  IV 
elements;  also  Dp  index 

Index  of  current  row;  reset  to  index  of  next 
row 

Index  of  preceding  row 
Index  of  current  row 

First  index  of  pivotal  element  in  a column 
K + 1 
Dp  index 
Equal  to  MM 

Size  of  matrix  to  be  invertec 
M - 1 

First  dimension  of  A in  dimension  statement 
of  calling  routine 
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RNAME 


ALPHA 


Routine  name  -C^r  calling  DUMP  routine 
4.99  Subrovitine  M0DEL 

Ratio  of  the  current  estimates  of  the  pres- 
sure P2  and  the  density  behind  the  shock 


I 


I 


i 

|S 


CATM 

CKSl 

CMl 

CTSAVE 

DET 


2 

Conversion  factor  from  atm  to  dyne/cm 

Parameter  characterizing  low  density  effects 
on  the  stagnation-point  iieat  flux,  E (per 
foot) 

Mean  molecular  weight  of  the  gas  ahead  of  the 
shock,  g/mole 

Temporary  storage  for  nondimensional  free 
stream  temperature  CT 

Computer  time  used  in  mod..l  calculations, 
seconds 


DISC 

ELN(I) 


EMF 


EPS 

EPS/2JLD 


Discriminant  in  quadratic  solution  for  the 
pressure  behind  the  equilibrium  normal  shock 

Exponent  of  Lewis  number  in  Fay-Riddell  heat 
transfer  correlation  (equilibrium  boundary 
laye .1=1,  frozen  boundary  layer  1=2) 

Temporary  storage  for  e lectron  mole  fraction 
at  stagnation  point,  to  permit  output  of  elec- 
tron concentration 

Density  ratio  £ = ^2  across  normal  shock 

Previous  estimate  of  £ 


j EQUALS 

\ ■ 

1 ERRHI 


Hollerith  equality  sign  used  in  output 


Most  recent  positive  error  in  the  nondimen- 
sional enthalpy  in  iterative  solutions  for 
conditions  behind  the  normal  shock  and  at  the 
inviscid  stagnation  point 
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ERZ 

ET 

ETO 

I 

{■ 

HCP 

HQ^ 

HD 

a HE 

HI 

HR 

HRATI0 

HSTAQ 

HS7AR 

! 

HH 

(T 


> 

I 


Most  recent  negative  error  in  the  nondiioen*- 
sionai  enthalpy 

Current  error  in  the  nondimensional  enthalpy 

Elapsed  time  since  the  beginning  of  the  run, 
seconds 

Elapsed  time  since  the  beginning  of  the  run 
\dien  10DEL  is  entered,  seconds. 

Species  concent3rations,  nK^les/g 

Enthalpy  of  formation  of  the  gas  mixture  at 
the  stagnation  point 

Conversion  factor  (RTo/^^q)  from  nondimensional 
enthalpy  to  enthalpy  in  cal/g 

Nondimensional  kinetic  energy  per  unit  mass 
of  the  gas  ahead  of  the  shock,  (u/Ug)2/2 

Free-stream  static  enthalpy  (cal/g)  * used  in 
flat-plate  calculation 

Logical  Vcuriable;  if  .TRtJE.,  a positive  enthalpy 
error  has  already  been  obtained  in  the  itera- 
tion 

Recovery  enthalpy  (cal/g)  iu  flat-plate  calcu- 
lation 

Ratio  of  the  dissociation  enthalpy  to  (hg-h^) 
Enthalpy  at  the  inviscid  stagnation  point, 

cal/g 

Reference  enthalpy  'cal/g)  flat-plate  calcu- 
lation 

Gas  enthalpy  at  the  wall  tenperature  of  the 
stagnation  point  model,  cal/g 


I 


l- 


c 


H2 

I 

IC0UNT 

is0m 

ISS5P1 

J 

K 

L 

LIMSC0(I) 

LIHl 

L1M2 

UHSC 

L0 

N 

NEL 


Nondimensional  enthalpy  behind  the  normal 
shock 

P0  index 

Iteration  counter 

Index  specifying  the  tvvo  types  of  normal- 
shock  solution  (equilibrium  IS0IJJ  = 1,  frozen 
IS0I2J  = 2) 

Number  of  lines  of  output  required  for  the 
mole  fractions  at  the  inviscid  stagnation 
point 

Index  of  chemical  elements 
l>0  index 

Model-shape  index 

For  1=1,  2,  stored  values  of  IMSC  for  the 
equilibrium  and  frozen  normal  shock  solutions 

Lower  limit  of  implied  D0  loop  for  output  of 
mole  fractions 

Upper  limit  of  implied  D0  loop  for  output  of 
mole  fractions 

Number  of  data  items  from  the  SC0UT  array  to 
be  printed  for  the  current  normal  shock  solu- 
tion 

Logijal  indicatory  if  .TRUE.,  a negative  en- 
thalpy error  has  already  been  obtained  in  the 
iteration 

D0  index 

Number  of  chemical  elements  in  a species 


o 
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PC 


PRW 

PS 

PT 

PI 

P2 


4 \x^ , atra-g/cm^ 

Prandtl  mimber  at  the  model  wall  temperature 

Stagnation  pressure,  atm 
2 

Pi  + , atm 

Pressure  ahead  of  the  shock,  atm 

Pressure  behind  the  normal  shock,  atm 


QFRE(L) 

QFRF (L) 

OP 

QS 

QSRI 

QUANT (I) 

RH^^STR 

R1 

R1U12 

R2 

SCOUT (I) 


Stagnation  point  heat  flir<  times  the  square 
root  of  the  nose  radius  for  an  equilibrixim 
boundary  layer  (hemispherical  model  L = 1, 
flat-faced  model  L = 2) , Btvi/ft^/^  -sec 

Stagnation  point  heat  flux  times  the  square 
root  of  the  nose  radius  for  a frozen  boundary 
layer  (hemispherical  model  L = 1,  flat-faced 
model  L = 2),  Btu/f t^'^^-sec 

Pl^2/^1 

Factor  used  in  calculating  QFRE  and  QFRF 

Stagnation  point  heat  flux  times  the  square 
root  of  the  nose  radius  based  on  the  SRI  ap- 
proximation, Btu/ft^/2-sec 

Hollerith  names  of  output  quantities  in  SC<^UT 
array 

Density  at  reference  temperature  in  flat-plate 
calculation 

Density  ahead  of  the  shock,  g/cm^ 

/^l^i^,  atm 

Density  behind  the  shock,  g/cm^ 

Array  used  for  output  of  model  conditions 


SHV 


S0D(L) 


- SQTE 
SQ2F(K) 


THI 

TITLE2 

TI^5 

TSTAR 

T1 

T2 

U1 

VGP  (L) 


GJ(I) 

I 


Array  equivalenced  to  common  block  /STAG/  to 
permit  setting  these  data  in  the  D0  loop  over 
IS0LH 

Shock  standoff  distance  divided  by  model  rad- 
ius (hemispheric? 1 L = 1,  flat-faced  L = 2) 

Square  root  of  the  shock  density  ratio,  >/i” 

Ratio  of  the  stagnation-point  heat  flux  for 
the  current  model  geometry  to  that  for  an  axi- 
symmetric  model  (two-dimensional  model  K = 1, 
axisymmetric  K = 2) 

T2  value  corresponding  to  enthalpy  error  ERRHI 
OR 

Hollerith  data  used  in  output 

T2  value  corresponding  to  enthalpy  error  ERRI0 
OK 

Reference  temperature  in  flat-plate  calcula- 
tion, °K 

o 

Tenperature  ahead  of  the  shock,  K 

Temperature  behind  the  shock, 

Velocity  ahead  of  the  shock,  cm/sec 

Velocity  gradient  parameter  (Rj/u^) (du^/dx) 
(hemispherical  model  L = 1,  flat-faced  L = f) 

4.100  Subroutine  NEV?RAP 

Specxes  concentrations,  mole/g 

D0  index;  also  J + ISC 


J D0  index 
K D0  .index 
L I + ISC 


LL 


ISSNR  + 1 


M2 

N01)in?S 

RNAME 

ZB 

ZC 


ITS 


ISC  + 2 

Logical  indicator;  .TRUE,  \dien  the  gas  model 
contains  no  dependent  species 

Routine  name  for  calling  DUMP  routine 

Correction  factors  1+hj^^  to  the  mole  fractions, 
eg.  1(260) 

Correction  factor  1+h^^.]^  to  the  pressure 

4.101  Subroutine  NEXTMP 

Index  '^f  the  next  specified  test  section  dia- 
mete  . 


0NE 

XM0D1 

XMfSD2 

^MfSDEL 


AB 


1.0 

Coordinate  of  the  next  model  point  in  the 
geometric  sequence  of  model  points,  cm 

Coordi  \ xte  of  the  model  point  at  the  next 
spe'“ified  test  section  dieuneter,  cm 

Coordinate  of  the  next  model  point,  cm 

4 . 102  Subroutine  N0NBQ 

Temporary  storage  location  used  in  interchang- 
ing vows  of  /3. . matrix  during  determination 
of  matrix  rarik^^ 
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ADCH 


f 


PiLfiGfS 

BLNEAR(M) 

CA 

CAISV(I) 


CI(K) 


CJ 

DCA(K) 

DCHMAX 

DCHMIN 

DCI(K) 

DEI£LB(L) 


Absolute  value  of  a value 

in.  (10000) 

Array  equivalenced  to  the  first  10  locations 
of  common  block  /BLNE/ 

BETA  (M,  I)  /BETA  ( IX  , 1) 

Storage  for  the  correcr  values  of  CAI(I)  to 
allow  resetting  CAl(I)  when  the  artificial 
increase  of  reaction  rate  constants  has  been 
used  to  prevent  premature  switching  from  the 
perturbation  technique  to  the  numerical  inte- 
gration 

Array  specifying  elemental  composition  of  the 
gas  mixture  in  the  reservoir?  CI(K)  is  the 
number  of  gram-atoms  of  the  Kth  element  per 
gram  of  mixture 

Nxiraber  of  gram-atoms  of  an  element  per  gram 
of  mixture  at  the  end  of  a successful  integra- 
tion step 

eg-  I(346c) 

'3'k  ^ j-1 

Largest  i ^ . j for  any  reaction 

Smallest  reaction 

<Scj^,  correction  in  concentration  of  Kth 
chemical  element  required  at  the  end  of  an 
integration  step  (eq.  1(344),  g-atOiTj/g 

Nondimensional  boundary  layer  displacement 
thickness  for  the  Lth  profile,  at 

the  start  of  an  integration  step 
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BELT 


DELTSV 

DQEM 

DXM 

DX0LD 

DXSAVE 


GJ(J) 

GSQ(J) 

hdxEav 

I 

IC0UNT 

lERR 

IF(N) 

II 

IM70C 


Nondimensional  temperature  inteirval  in  the 
perturbation  solution,  1atI/Tq 

Input  value  for  DELTl 

Maximum  allowable  change  in  the  energy  trans- 
fer to  the  electron  gas  in  one  integration 
step 


Largest  allowable  step  size  for  the  first 
integration  step  after  the  switch  from  tha 
perturbation  solution 

Step  size  Ax  in  the  preceding  integration 
step  (cm) 


Temporary  storage  for  saving  and  restoring 
the  integration  step  size  when  a reduced  step 
is  used  to  calculate  the . conditions  at  a 
model  point  (cm) 


Concentration  of  the  Jth  species,  y_^,  mole/g 
Square  of  GJ(J) 

One-half  of  DXSAVE,  cm 


D0  index 


Counter  for  nuiriber  of  times  a step  has  been 
restarted  with  reduced  step  size 

Error  exit  indicator  (see  subroutine  listing) 

Array  for  storing  and  printing  out  IPAIL 
values  for  successive  restarts  of  a step  (see 
glossary  for  common  block  /TNERI^) 


I + ISC 

Index  of  the  reaction  with  the  largest 

3b 
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IRA 


ISMCPl 

ISTEPS 

ISXJBD 


ISXJPR(I) 

1S5 

ITAPE 

ITS 

IX 

12 

J 

K 

J'A 

L 


Coxmtcr  for  nuittoer  of  times  the  artificial 
increase  in  rate  constants  has  been  used  to 
prevent  premature  switching  from  the  pertur- 
bation technique  to  numerical  integration 

n - c + 1 

Counter  for  number  of  integration  steps 

Counter  for  number  of  times  the  temperature 
interval  aT  has  been  cut  in  half  in  an  attempt 
to  find  a point  in  the  perturbation  solution 
satisfying  the  second  inequality  of  eq.  1(381) 

Array  of  indices  of  the  reactions  which  are 
suppressed  when  the  decrease  of  a minor  spec- 
ies is  found  to  control  the  integration  step 

Input  value  of  ISW5B 

Number  of  records  written  on  the  binary  out- 
put tape  since  subroutine  THR0AT  was  called 

Index  of  the  next  model  point  defined  by  a 
specified  test  section  diameter 

Rank  of  the  /3.  . matrix 

Index  used  in  calculating  the  rank  of 

Index  used  for  various  purposes 

Index  used  for  various  puirposes 

Index  used  in  calculating  the  rank  of 

Df6  index 

Index  used  in  calculating  the  rank  of 


/3.  . 
13 


fi.  . 
' 13 


A.  . 
' 13 


M 


N 

NSUPR 

0NE 

QE0LD 

RAT10 

RATI02 


RNAME 

SCD 

SDGJ(J) 

TENTH 

TEP 

TP 

TSZ 

XM0DEL 

XM0D1 


Index  used  in  calculating  the  raiik.  of 

Number  of  reactions  suppressed  when  the  de- 
crease of  a minor  species  is  found  to  con- 
trol the  integration  step 

1.0 


Energy  transfer  to  the  electron  gas  at  the 
preceding  flow  point,  cal/cm^  sec 

Ratio  of  the  smallest  and  largest  I <5  val- 
ues 

Factor  by  which  the  fomvard  rate  constant  is 
increased  in  the  artificial  increase  of  a 
reaction  rate  to  prevent  premature  swi  ehing 
from  the  perturbation  technique  to  the  numer- 
ical integration 

Subroutine  name  for  call  to  DUMP  routine 

Factor  by  which  the  step  size  Ax  is  divided 
when  an  integration  step  fails  and  has  to  be 
restarted 

Change  in  the  concentration  "y  . of  the  Jth 
species  in  an  integration  step 

10000. 

Electron  ten^erature  (*’k) 

Gas  tender atxire  (°K) 

Temporary  storage  for  TPRINT 

Position  of  next  model  point,  cm 

Coordinate  of  the  next  model  point  in  the 
geometric  sequence  of  model  points,  cm 
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XMSET 


Logical  indicator,  set  to  .TRUE,  when  NEXTMP 
is  first  called  to  determine  XM0DEL 


K 

r 

i 


I 


i 

I 

i 

[ 

i 

i 

I 


j 

i 

s 


I 

I 


ZZZ 


BELT 

F1,F2,F3 

GJ(J) 

1 

J 

T1,T2,T3 


Temporary  storage 

4.103  Subroutine  NRMAX 

Decrement  of  nondimens ional  tenperature 

Mass  fl\ix  values  in  iteration  to  determine 
equilibrium  sonic  flow  conditions 

Species  concentrations,  mole/g 

<. 

Dfi  index  over  species 
index  over  species 

Nondimens ional  temperature  values  in  itera- 
tion to  determine  the  equilibrium  sonic  flow 
conditions 


Z 


FI  - F2  + F3  - F2 


ANAM 

ARAT 

AS;2LN(I,J) 

ASTRSK 


4.104  Subroutine  giUTl 
Hollerith  word  "ARAT" 

Geometric  area  ratio 

Hollerith  array  containing  names  for  types 
of  solution  (see  DATA  statement) 

Hollerith  word  filled  with  asterisks 


CHDIMS(L)  Transverse  dimensions  of  a channel  at  the  cur- 
rent flow  point,  inches 

CP  Molar  heat  capacity  at  constant  pressure,  divided 

by  Rq 
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DJ\RAT 

DEL 

DELSTP(L) 

DGJ(I) 

DL<?DX(I) 

DNAM 

EMF 

PAREA 

FIX 

PV02(I,J) 

GAMMA 

GJ(I) 

H0UT 

HW 

HO 

I 

IBL 

IFLAG 


Derivative  of  the  geometric  area  ratio 

Electron  density,  electrons/cm^ 

Displacement  thickness  on  the  Lth  profile,  cm 

d y ./dx,  derivatives  of  species  concentra- 
tions, mole/  g-aa 

d -fn^j^/dx  for  the  Ith  species 

Hollerith  work  "DIAM" 

Mole  fraction  of  the  electrons 

I 

Effective  cross-sectional  area  of  the  flow  at 
the  throat,  cm^ 

Mass  flux,  Ibm/ft  -sec 

Array  used  for  output  of  SN  and  XSN 

Ratio  cf  specific  heats,  O' = Cp/c^ 

Species  concentrations,  mole/g 

Entha Ipy , Btn/ lb 

Enthalpy  at  the  nozzle  wall,  Btu/lb 
Stagnation  enthalpy,  Btu/lb 
D0  index 

Index  such  that  PV0UT(IBL)  is  the  boundary 
layer  displacement  thickness  on  the  nozzle 
wall  or  on  the  broad  face  of  a channel 

Indicator  for  entry  points  to  subroutine 
IFLAG  = 1 Entry  0UT1 

IFLAG  = 2 Entry  0UT2(IS0LN) 
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II 


Index  7 + 10*1 


INEQPl 

XS0IH 


ISS5P1 

IS6 

IX 

11 

12 

16 

J 

k 

L 

LIMl 

LIM2 

P^UT 

PZ 


INEQ  + 1 

Indicator  for  type  of  solution 
IS0I2T  = 1 Frozen 

ISpLN  = 2 Equilibrium 

IS^SliN  = 3 Nonequilibrium 

(ISS-l)/5+l,  nvunber  of  lines  of  output  re- 

quired for  printing  the  species  mole  frac- 
tions 

i ISW6B  1 

Ccimter  of  records  written  on  tape  8 for  a 
given  flow  solution 

Index  of  the  first  FV0UT(I) element  to  be 
printed  on  a line 

Index  of  the  last  FV0UT(I) element  to  be 
printed  on  a line 

Counter;  n\amber  of  flow  points  printed  since 
last  output  of  reaction  rate  data 

D0  index 

D0  index 

D0  index 

Index  of  first  species  mole  fraction  to  be 
printed  on  a line 

Index  of  last  species  mole  fraction  to  be 
printed  on  a line 

Pressure,  atm 

3.1415927 


-303- 


R^iUT 

S0UT 

STEP (I) 

STFAC 

TFL0W 

TNNAM(I) 

TNj^UT(I) 

T^UT 

TYPSLNd, 

U0UT 

VARNAM(I) 

VARN2(I) 

mm 

Y 

Z 

1 

J 


Density,  Ib/ft^ 

Entropy,  Btv/lbm-^R 

Hollerith  array  (see  DATA  statement) 

V I/=u(ho“l\,)3  / (Bt\a/ft^“sec)“^ 

Total  mass  flow,  Ib/sec 

Hollerith  array  of  vari^le  names  (see  DATA 
statement) 

Array  used  for  output  of  quantities  for  elec- 
tronic nonequilibrivuto  model 

Temperature,  °K 

Hollerith  array  used  to  indicate  whether  non- 
equilibrium solution  is  based  on  perturbation 
technique  (INEQ  = 0)  or  numerical  integration 
(IHEQ  = 1) 

Velocity,  ft/sec 

Array  of  Hollerith  names  for  output  variables 
(see  DATA  statement) 

Array  of  Hollerith  names  for  N,  XSN 

Hollerith  word  "WIDTH" 

Distance  from  nozzle  axis  to  nozzle  surface 
(or  to  first  profile  in  the  case  of  a channel) 

Distance  from  axis  to  second  profile  of  a 
channel 

4.105  Subroutine  PERT 
D0  index 
D0  index 
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K 

Z 

Z1 


I 

P10MEG 

TE' 


J 

RNAME 

S4 


AS 


I 

IDBG 

J 

K 

KK 


D0  index 

Temporary  storage  used  in  computing  sums 
Temporary  storage  used  in  computing  sums 

4.106  Function  PI0MEG 

Index  of  entries  in  cross  section  table 

Cross  section  value  returned  to  the  calling 
j ■'utine 

o 

Electron  temperature,  K 

4.107  Subroutine  PR0P 
D0  index  over  species 
Routine  name  for  call  to  DUMP 

-1-  f; 

Rq  1=1 


jO  j 


4,108  Subroutine  PRTA 

Speed  of  sound,  cm/sec 

4.109  Subroutine  PUTQIM 

First  index  of  species  pair 

Count  to  determine  when  debug  output  is  pro- 
duced 

Second  index  of  species  pair 

Option  KQ  to  be  useu  in  step  L of  the  compu- 
tations 

Type  of  cross  section;  first  index  of  Q(KK,I,J) 


L 


LQ 

IQl 

102 

H 

j^(KK) 


WR0TE 


X 


C 


X 


A 


Index  of  current  step  in  cross  section  ccxapu- 
tations 

Index  of  species  pzuLr  in  IQ,JQ  array 

Index  of  first  species  pair  in  IQ,  JQ  array 
to  be  used  in  step  L of  coii5>utations 

Index  of  last  species  qair  in  IQ,  JQ  array 
to  bi  used  in  step  L of  confutations 

Index  of  first  paxctmeter  in  V array  to  be  used 
in  step  L of  confutations 

Varicible  for  teraporairy  storage  of  cross  s^Q- 
tions  computed  in  current  step.  ^M(l)= 

0M(2)=  , 014(3) 

WR0TE  = .TRUE,  indicates  that  debug  output 
has  been  produced  in  the  current  call  to 
PUTQIN 

Electron  partial  pressure  in  atmospheres 

4.110  Subroutine  OC0UL 

Control  variable.  For  C > 0,  An  (f  A.)  is 
computed  frcsn  eqs.  1(100);  for  C < 0,  An{  f A) 
is  set  to  1 

0.8Q^  (see  eq.  I (100b)) 

Electron  partial  pressure  in  atmospheres 
20.91Y  = (f  A)^  (see  eqs.  I (100c)  and  I(lOOd)) 
4.111  Subroutine  OEX 

Coefficient  A in  eq.  1(104)  for  the  exchange 
cross  section 
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(I.) 

B Coefficient  B in  eq.  I(i04)  for  the  exchange 

cross  section 

^(K)  Contribution  to  cross  sections  from  option; 

^M(l)  = ^(2)  = H(2,2) 

0M(3)  = B*n 

V(M)  Input  parameters  W option 

Y Quantity  A - ^ 3 in  (T/M) 

ZM  Molecular  \veight 


4.112  Subroutine  QEXP 

A Coefficient  R/h  in  for  the  exponential 

potential 

ALPHA  Quantity  oi 

N1  Position  of  first  entry  in  tabulated  collision 

integrals  for  the  exponential  potential 

Qlk(K)  Ccxaputed  cross  section  values  (see  subroutine 

QEX) 

RHO  Characteristic  length  r>  for  the  exponential 

potential  in  8 

V(M)  Input  parameters  W for  option 


0 
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4.113  Subroutine  OINTRP 


A Value  of  independent  variable  to  be  used 

in  interpolation 

B(J)  Interpolated  value  of  Jth  dependent  var- 

iable 

I Interpolation  is  performed  between  entries 

I and  I + 1 of  the  table 

J Index  of  dependent  variable 

N Nuinber  of  entries  in  table 

N1  Location  of  first  entry  in  teible 

N2  N2  + 1 is  the  location  of  the  last  entry 

in  table 


4. 114  Subroutine  QU 

EPSI2I  Well  depth  parameter  € /k  for  the  Lennard- 

Jones  potential,  in 

N1  Position  of  first  entry  in  tabulated 

cross  sections  for  the  Lennard- Jones 
potential 

f^(K)  Computed  cross  section  values  (see 

subroutine  QEX) 


SIGMA 

TSTAR 

V(M) 

I 

J 

K 

LQ 

lOl 

m2 

SQT(K,I) 

ITL 

/aM(K) 

W(M) 

C 

I 


Collision  dian^ter  ^ for  the  Lennard-Jones 
potential « in  £ 

Nondimensional  tenqperature,  kT/€ 

Input  parameters  W for  option 

4.115  Subroutine  QMIX 

First  index  of  species  pcd.r 

Second  index  of  species  pair 

Type  of  cross  section,  i.e„  first  index 
of"Q(K,I,J) 

Index  of  species  pair  in  IQ,  JQ  array 

Index  in  IQ,  JQ  array  of  first  species  pair 
to  be  used  in  computation 

Index  in  IQ,  JQ  array  of  last  species  pair  to 
be  used  in  ccxnputation 

h \/Q(K,I,I) 

4.116  Subroutine  QREPP 

Location  in  0MEGA1  array  vdiere  data  are  stored 

Cot^uted  cross  section  values  ^see  subroutine 
QEX) 

Input  parameters  W for  option 

4.117  Subroutine  QSAME 

Constant  by  which  previously  computed  cross 
sections  are  multiplied 

First  index  of  species  pair  for  previously 
computed  cross  sections 
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J Second  index  of  species  pair  for  previously 

computed  cross  sections 

0M(K)  Ccat^uted  cross  section  values  (see  subroutine 

QEX) 


W(M) 


A 


Input  parameters  W for  option 

4.118  Siibroutine  QTAB 

Constant  multiplying  factor  for  tabulated 
cross  sections 


N1 


Location  of  first  entry  in  tabulated  cross 
section  data 


NL 


Number  of  entries  in  tabulated  cross  section 
data 


0M(K) 

V(M) 


lOl 


L02 

TO 


CcMi^uted  cross  section  values  (see  siibroutine 
QEX) 

Input  parameters  W for  option 
4.119  Subroutine  Qll 

Location  in  IQ,  JQ  list  of  the  first  species 
pair  to  which  the  ranp  function  is  to  be  ap- 
plied 

Location  in  IQ,  JQ  list  of  the  last  species 
pair  to  which  the  ranp  function  is  to  be  applied 

Temperature  in  °K  beyond  \diich  cross  sections 
are  set  to  zero 


T1 


Tenperature  in  °K  beyond  which  cross  sections 
are  unchanged 


VI  (M) 


Input  parameters  W for  option 
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W(M) 


Input  pcurameters  for  subroutine  Q14 


4»120  Subroutine  Q12 

I First  index  of  first  previously  cc»nputed 

species  pair 

J Second  index  of  first  previously  confuted 

species  pair 


K 

L 

M 

0H(H) 

W(N) 


C 

I 

J 

K1 

K2 

LQ 

liQl 


First  index  of  second  previously  ccanputed 
species  pair 

Second  index  of  second  previously  confuted 
^ecies  pair 

Index  indicating  cross  section  type 

Con5>uted  cross  section  values  (see  subroutine 
QEX) 

Input  parameters  W for  option 
4.121  Subroutine  Q13 

Constant  by  Which  cross  section  is  multiplied 

First  index  of  species  pair 

Second  index  of  species  pair 

Type  of  cross  section  to  b e conc>uted 

Type  of  cross  section  to  be  used  in  confuta- 
tion 

Location  of  species  pair  in  IQ,  JQ  list 

Location  in  IQ,  JQ  list  of  first  species  pair 
to  be  used 
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M2 

W(M) 


C2 

C3 

I 

J 

LQ 

LQl 


LQ2 


W(M) 


AG 

AGJ 

ITYPE 


L 


Location  in  IQ,  JQ  list  of  last  species  pair 
to  be  used 

Input  parameters  W for  option 

4.122  Subroutine  Q14 

Constant  applied  to  XI 

Constant  applied  to  B*  XL 

First  index  of  species  pair 

Second  index  of  species  pair 

Location  of  species  pair  in  IQ,  JQ  list 

Location  in  IQ,  JQ  list  of  the  first  species 
pair  to  be  used  with  the  set  of  multiplying 
factors 

Location  in  IQ,  JQ  list  of  last  species  pair 
to  be  used  with  the  set  of  multiplying  fac- 
tors 

Input  parameters  W for  option 
4.123  Sxibroutine  RADIUS 
Geometric  area  ratio 

Factor  proportional  to  r^^  in  eq.  1(171) 

Indicator  for  type  of  nozzle  geometry 
ITYPE  = 1 Two-dimensional  nozzle 
ITYPE  = 2 Axisymmetric  nozzle 
ITYPE  = 3 Channel 

Index  of  profiles  (1  for  a nozzle,  1 or  2 for 
a channel) 


M 

OTR(L) 

R 

RATI0 

X 

YZ(L) 


AL 


AS'XM(IZ) 


NPR(L) 

2 for  L = 1;  1 for  L = 2 
Distance  from  axis  to  profile 
R/RO 

Axial  coordinate  in  nozzle  or  channel,  cm 

Distance  from  axis  to  Lth  profile  in  a chan- 
nel 


4.124  Subroutine  READ 

Number  of  atoms  of  the  Kth  element  per  mole- 
cule of  the  Ith  species,  as  obtained  from  the 
SPRP  array 

Hollerith  chemical  syinbol  for  the  element  with 
atomic  number  IZ 


CAPQ(I) 

CP(I,J) 

CSMW 

DAL 

DUM(I) 

EINAHE(K) 


N\rnber  of  gram  atoms  of  the  Ith  chemical 
element  per  molecule  of  the  cold  gas 

Array  for  addressing  the  channel  data  in  com- 
mon block  /CHAN/ 

Molecular  weight  of  one  of  the  cold  species 

Error  in  rounding  A to  an  integer  LP 

Array  for  zeroing  common  block  /TNCE/ 

Hollerith  name  for  the  Kth  element  in  one  of 
the  cold  species 


EPRP(I,J) 


Array  for  addressing  the  element  data  in  com- 
mon block  /ETSEM/ 


EXPMP 

PNMP 

GPRP(I,J) 

HWIN0V 

I 

lES 

IGMV 

IGS 

II 

IPRPL 

ISH 

ISKUR 

lUPDI 

IZ 

J 

JDPl 


Exponent  used  in  computing  tiie  factor  (PACMP) 
used  to  generate  a geometric  sequence  of  dis- 
tances at  which  model  calculations  will  be 
done 

Number  of  model  points  in  geometric  sequence, 
minus  1 

Array  for  addressing  the  gas  model  data  in  com- 
mon block  /MIXT/ 

Estimate  of  stagnation  enthalpy  based  on  Wino- 
vich  equation,  Btu/Ib 

1)0  index 

Index  of  an  element  in  a species,  in  the  mas- 
ter list  of  elements 

Number  of  electronic  levels  in  a species 
Input  value  of  IGAS 

Index  used  in  place  of  subscripted  integer 
variables 

Index  used  in  place  of  subscripted  integer 
variable,  NPR0FL(J) 

A value  of  ISHAPE(K,J) 

Index  of  a third-body  species  in  the  master 
list  of  species 

Initial  \aLue  of  lUPD 

Atomic  number  of  an  element  defined  in  the 
inpuu  using  EEPRP 

D0  index 

JDIM  + 1 
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JJ 


JPS 


JRS 


K 

KK 


L 

LL 


LP 

NAT0M 

NELS 

NK 

N0ZZLB 


NPSS 

NRSS 

NSECTD ( J) 


NSECTJ 


Index  used  in  place  of  a subscripted  integer 
variable,  JCS(I) 

Index  of  a species  on  the  product  side  of  a 
reaction,  in  the  master  list  of  species 

Index  of  a species  on  the  reactant  side  of  a 
reaction,  in  the  master  list  of  species 

D0  index 

Index  of  an  element  in  a cold  species,  in  the 
master  list  of  elements 

D0  index 

Index  used  in  obtaining  the  PARAM  array  frora 
the  data  stored  in  the  ZPRP  array 

Integer  obtained  by  rounding  AL 

Number  of  atoms  of  an  element  in  a molecule 
of  a species 

Number  of  elements  in  a species 

Number  of  third  body  species  for  a reaction 

Index  of  the  nozzle  profile  in  the  precoded 
geometry  fits 

Nuniber  of  product  species  for  a reaction 

Number  of  reactant  species  for  a reaction 

Number  of  downstream  sections  in  the  profile 
curvefit  for  the  Jth  profile  of  a channel  or 
nozzle 

Index  used  in  place  of  dimensioned  integer 
variable,  NSECT(J) 
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I 


I 


i 


ft 


NSMl 

0NE 

PLUS 

RPRP(I,J) 

SBJ(J) 

SETIGS 

SHAPD 

SHJAP(I) 

SPNAME(I) 

SPRP(I,J) 

SYl(K) 

SY2(K) 

,THEVP(I) 


NSECT(J)  - 1 


1.0 

Hollerith  + sign 

Array  for  addressing  reaction  data  in  common 
block  /REAC/ 

b j ; eqs,  1(51) 

Logical  indie-. tor;  .TRUE,  if  automatic  air 
model  selection  option  is  in  effect 

Array  of  Hollerith  data  for  describing  the 
shapes  of  nozzle  profile  sections 

Formation  enthalpy  of  the  Jth  species,  cai/mole 

Array  of  nominal  species  names  for  species  de- 
fined in  the  input 

Array  for  addressing  species  data  in  common 
block  /SPEC/ 

Array  of  Hollerith  left  parentheses 

Array  of  Hollerith  right  parentheses 

Vibrational  temperature  for  the  Ith  species, 

OK 


TNEP(I,J)  Array  for' addressing  thermal  nonequilibrium 
data  in  common  block  /TNE/ 

W0RD(I,J)  Hollerith  data  for  output  of  the  words  "two- 
dimensional"  and  "axisymmetric" 

W0RD2(I)  Hollerith  data  for  output  of  the  words  "gap" 
and  "diam" 


i 
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ZPRP(I,J) 


I 

ICPU 

IN 

IZER0 

AM(I,J) 

BM(I) 

C0NST 

CTAPP 

CTtiAVE(l) 

CTSV 

DCT 


Array  for  addressing  the  geometry  data  in  com- 
mon block  /N0ZZ/ 

4.125  Subroutine  RESET 

Elapsed  time  since  the  beginning  of  the  run 
in  milliseconds 

CPU  time  remaining  before  TIME.G0,  milli- 
seconds 

Entiry  point  indicator:  IN  = 1,  RESET;  IN  = 2/ 

TIME 

CPU  time  remaining  before  TIME.Gj3  at  call  to 
RESET,  milliseconds 

4.126  Subroutine  RBSTMP 

Matrix  of  coefficients  for  system  of  equations 
in  quadratic  interpolation  for  the  reservoir 
temperature 

Constant  terms  for  system  of  equations  in  quad- 
ratic interpolation  for  the  reservoir  tempera- 
ture 

RQ(m*/pQ)‘^,  in  which  Rq  is  the  universal  gas 
constant,  m*  the  known  sonic  mass  flux,  and 
Pq  the  reservoir  pressure,  all  expressed  in 
cgs  units 

Previous  estimate  of  reservoir  temperature,  °K 

For  I = 1 to  3,  successive  estimates  of  the 
reservoir  temperature,  the  value  for  1=1  be- 
ing the  most  recent, 

Temporary  storage  for  the  reservoir  temperature 
estimate  used  in  the  current  iteration,  °K 

The  difference  between  the  two  most  recent  esti- 
mates of  the  reservoir  temperature, 
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DCTAP 

DCTAP0 

DMC 

D1.D2 

F(I) 


H 

HERR 

i ■ 

110 

I 

J 

KS  . 

N 

N2 

N3 


Absolute  value  of  the  difference  between  the 
current  and  improved  estimates  of  the  reser- 
voir temperature,  °K 

DCTAP  in  the  previous  iteration  step,  °K 

Intermediate  quantity  in  quadr.'^tic  interpola- 
tion for  the  reservoir  temperature,  °K 

Intermediate  quantities  in  linear  interpola- 
tion for  the  reservoir  temperature,  °K 

For  I = 1 to  3,  successive  estimates  of  the 
quantity  Wq»(SM)^,  the  value  for  1=1  being 
the  most  recent;  W is  the  molecular  weight  in 
the  reservoir  and  SM  the  nondimensional  scnic 
mass  flux 

Calculated  value  of  reservoir  enthalpy,  cal/g 

Allowable  error  in  calcilated  stagnation  enbhalpy 
cal/g 

Calculated  stagnation  enthalpy  in  previous  iter- 
ation step,  cal/g 

D0  index 

Index  for  shifting  data  in  CTSAVE  and  F arrays 

Indicator  for  singularity  of  AM  matrix 

Iter ation ■ counter  for  main  iteration 

Iteration  counter  for  temperature  calculation 
in  enthalpy  option 

Iteration  counter  for  pressure  calculation  in 
enthalpy  option 


ft 
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PCGS 

PERR 

PIAST 

RGAS 

RNAME 

SMERR 

SMP 

TERR 

TLAST 


P'iJ(j) 


DQMRK 


FK(J,K) 

5 

I F1(J) 

i 

V 

r 

I F2(J) 

I 

I 

F3(J) 


Reservoir  pressure,  dyne/cm^ 

Allowable  relative  error  in  reservoir  pres- 
sure 

Previous  estimate  of  reservoir  pressure,  atm 

bniversal  gas  constant  in  cgs  units 

Hollerith  name  for  calling  D'JMP  routine 

Allowable  error  in  sonic  mass  flux,  g/'cm^  sec 

Calculated  sonic  mass  flux,  g/cm  sec 

Allowable  ri^lative  error  in  reservoir  temper- 
ature 

Previous  estimate  of  reservoir  temper ature , °K 

4.127  Subroutine  RNKT 

d "Yj/dx,  derivatives  of  species  concent-x.^. 
tions,  mole/g-cm 

Twice  DQMAX;  criterion  value  for  allowable 
changes  in  energy  transfer  to  the  electrons, 
QDPE, . cal/cm^  sec 

Array  equivalenced  to  F1(J),  F2(J),  F3(J), 
F4(J) 

f-j_,  derivative  of  the  Jth  dependent  variable 
at  the  start  of  the  integration  seep 

±2,  derivative  of  the  Jth  dependent  variable 
at  y-2iY2  I(394a)) 

f^,  derivative  of  the  Jth  dependent  variable 
at  X3,y3  (cq.  I (394b)) 


a 


P4(J) 

GJK(J,K) 

GJl(J) 

GJ2  (J) 
GJ3(J) 
GJ4(J) 

IF0R 

ISTMST 


K 

LIM 

P(J) 

QDPEB 

SDGJ(J) 


t.,  derivative  of  the  Jth  dependent  variable 
at  where  is  given  by  I (394c)  or  1(405) 

Array  equivalenced  to  GJl(J),  GJ2(J),  GJ3(J), 

GJ4(J) 

y-j^,  the  Jth  dependent  variable  at  the  start 
of  the  integration  step 

Y2»  the  Jth  dependent  variable  at  X2  (eq,  I^394a)) 

y^,  the  Jth  dependent  vciriable  at  (eq.  I(394b)) 

y^,  the  Jth  dependent  variable  at  x^  (eq.  I (394c) 

or  1(405)) 

Indicator  for  type  of  formula  used  to  compute  GJ4 ( J) ; 
IF0R=1  for  I (394c),  IF0R=2  for  eq.  1(405) 

Indicator  for  locations  in  subroutine  at  which 
diagnostic  duii^s  are  written  (see  listing) 

Index  of  dependent  variables: 

J = 1 to  n > . 

J - n + 1 T ^ 

J = n + 2 Tg 

J = n + 3 hQ 

D0  index 

Number  of  dependent  integration  variables 

Parameter  (-P  a x)  for  the  Jth  dependent  vari- 
able, eq.  1(402} 

Electron  energy  transfer  (QDPE)  at  the  start 
of  the  integration  step,  cal/cm^  sec 

Change  in  over  an  integration  step,  mole/g 


i y 
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i 


M'Msi-yn.  M 'ik 


c 


SDQ(J) 


SI 


Change  in  Jth  dependent  v iable  over  the 
integration  step 

Temporary  storage  in  computation  of  I (398a) 
for  small  P Ax 


S2 


Tenporaty  storage  in  computation  of  l(398b) 
for  small  P A x 


S3 


Temporary  storage  in  ccmputation  of  I (398c) 
for  small  P Ax 


TE 


Logical  indicator,  .TRUE,  for  chemical  non- 
equilibrivim  models,  .FALSE,  for  electronic 
nonequilibrium  models 


T1 

Temporary  storage 
for  small  P ax 

in 

computation  of  X(398a) 

T2 

Temporary  storage 
for  small  P ax 

in 

computation  of  I (398b) 

T3 

Temporary  storage 
for  small  Pax 

in 

COTiputation  of  I (398c) 

XX 

iogio(  If3-f2l) 

XI 

(eq.  l(398a)) 

X2 

p2  (eq.  I (398b)) 

X3 

(eq.  K398c)) 

X4 

f2-fi 

Y(K) 

Array  equivalenced 

to  Yl,  Y2,  Y3,  Y4 

YY 

loUlQ  ( ^ 

Y1 

f-j^  + Pyj^  in  1(401) 
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* / 

I V 


Y2 

Y3 

Y4 

ALP 

B 

BETA 

BMP 

BM2 

BH4 

C 

CD 

Cl 

C2 

C3 

D 

DEL 

DELR 


f2  + Py2  in  1(401) 

+ PY3  in  1(401) 

+ Py^  in  1(401) 

4.128  Svibroutine  SHC^CK 

The  quantity  sin^o"  ~ B,  where  o'  is  the 
shock  angle 

2 

The  quantity  — + ”V  sin^c<^  , where  M is 

the  free-stroani  ^^ch  nximber,  ">  the  specific 
heat  ratio,  and  the  body  angle 

The  quauitity  ALP  • sin^c  + C 

Free- stream  Mach  number,  M 

square  of  the  Mach  number 

m4 

2 

The  quantity  .2£L±i  + Ti  ( 'V+1)^  + ■— sin^ 
^ m4  L4  ^2  J 

Cosine  of  the  body  angle,  cos  o< 

y +1 

T-l 

2B 

-cos^oc  /m4 


The  body  angle  <x  ; inclination  of  the  wedge 
surface  to  the  direction  of  free-stream  motion 
(degrees) 

(X-  in  radians 


? ( 
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DIS 

\/(ALP)2  - 4 . beta 

FL(I) 

Array  used  for  communicating  results 
calling  routine 

to  the 

FL(1)  shock  angle 

FL(2)  Mach  number  behind  shock 

FL(3)  Density  ratio,  P2/ 

FL(4)  Static  pressure  ratio,  P2/Pj^ 
FL(5)  Static  temperature  ratio,  T^/Tj^ 
FL(6)  Total  pressure  ratio,  P^2/Ptl 
FL(7)  Ratio, 

FPU 

Derivative  dF/du  of  the  function  F(u) 

FU 

F(u)  = u^  + Bu^  + Cu  + D 

GAM 

Specific  heat  ratio  T 

lERR 

Argument  v.’hose  value  is  set  to  2 when  Newton- 
Raphson  iteration  to  find  the  shock  angle  does 
not  converge 

KIT 

Iteration  counter 

RT 

sin  cr  , where  <T  is  the  shock  angle 

SD 

sin  , where  'x  is  the  body  angle 

UG 

Previous  trial  value  of  u in  solution 
equation  F(a)  = 0 

of  cxibic 

UN 

Current  trial  value  of  u in  solution 
equation  F(u)  = 0 

of  cxibic 

U1 

, 9 

First  solution  for  sxn^  cr 

U2 

2 

Second  solution  for  sxn  ^ 

VI 

2 2 
M sin  O' 
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I 


4.129  Sijbrotitine  SIMQ 

A (I)  Matrix  of  coefficients  for  the  system  of  equa- 

tions to  be  solved,  stored  columnwise  with  no 
gaps 

B(I)  Constant  terras  for  the  system  of  equations  to 

be  solved;  these  data  are  replaced  by  the  sol- 
ution values 

BIGA  Pivotal  (largest)  element  in  a column 

I Row  index 

lA  Index  of  matrix  A in  back  solution 


IB 

IC 

IJ 

IMAX 

IQS 

IT 

IX 

IXJ 

IXJX 

11,12 

J 

JJ 


Index  of  reccxiputed  array  B in  back  solution, 
containing  solution  values 

Index  of  array  B in  back  solution 

Index  in  search  for  pivotal  element  in  column 

Index  of  pivotal  element  in  colximn 

Index  in  elimination  of  variables 

Index  used  for  several  purposes 

D0  index  in  elimination  of  variables 

Index  in  elimination  of  variables 

Index  in  elimination  of  variables 

Indices  in  interchange  of  rows 

Column  index 

Index  of  the  first  element  in  a column  of  the 
reduced  matrix 
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JJX 


JX 

JY 

K 

KS 

N 

NY 

SAVE 

T0L 


ASTRSK 

DELTT(I) 

HOO 

I 

ICARD 


Index  in  elimination  of  variables 
D0  index  in  elimination  of  variables 
J + 1 

D0  index  in  interchange  of  rows 

Error  indicator;  set  to  1 if  matrix  of  coef- 
ficients is  singular 

Number  of  equations  to  be  solved 

N - 1 

Temporary  storage  location  used  in  interchang- 
ing rows  and  eliminating  variables 

Criterion  for  value  of  pivotal  element  in  test 
for  singular  matrix 

4.130  Subroutine  STUNTS 

Hollerith  word  filled  with  asterisks 

Array  of  preset  temperature  intervals  for 
tcible  of  species  thermal  properties, 

Heat  of  formation  of  a species  in  kcal/mole 

D0  index;  also  value  of  IQ(W2);  also  value  of 
ISEQ(L) 

Counter  of  punched  cards  containing  cross  sec- 
tion data 


II  Index  of  preset  temperature  intervals  for 

thermal  property  table 

Index  of  the  first  species  of  a pair  of  spec- 
ies whoso  cross  section  is  computed  in  the  Ith 
step  of  the  transport  property  calculation 


IIQJ 


4 


o 


IT 

XZ 

J 

JJQJ 

K 

KK 

L 

LIM 

LIMl 

LQ 

LQl 

LQ2 

M 

MVl 

MV2 


Counter  for  lines  in  the  thermal  property 
table  with  the  scime  value  of  the  temperature 
increment 

Number  of  lines  in  thermal  property  table 
D0  index; also  JQ(LQ) 

Index  of  the  second  species  of  a pair  of  spec- 
ies whose  cross  section  is  computed  in  the  Ith 
step  of  the  tran^ort  property  calculation 

D0  index 

KQ(L) 

Index  of  steps  in  the  cross  section  calcula- 
tion 

1 for  species  with  no  thermo  fit;  2 for  spec- 
ies with  a thermo  fit 

1 for  species  with  physical  model  data;  2 for 
species  without  such  data 

D0  index 

Index  of  the  first  species  pair  (in  the  IQ,JQ 
arrays)  to  which  the  Lth  step  of  the  edited 
cross  section  computation  is  applied 

Index  of  the  last  species  pair  (in  the  IQ,JQ 
arrays)  to  which  the  Lth  step  of  the  edited 
cross  section  computation  is  applied 

D0  index 

Index  of  the  first  parameter  (in  the  V array) 
used  in  the  Lth  step  of  the  edited  cross  sec- 
tion computation 

Index  of  the  last  parameter  (in  the  V array) 
used  in  the  Lth  step  of  the  edited  cross  sec- 
tion computation 


1 (> 
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NDT(I) 


Nmriber  of  lines  in  the  thermal  property 
table  for  which  the  Ith  preset  temperature 
increment  is  used 


NNQI 
TPR0P (I 

TT(I) 

TV 

CCPTF 

\ 

CLGT 

El 

J 

K 

M 


Nijmber  of  species  pairs  to  which  the  cross 
section  calculated  in  the  Ith  step  of  the 
calculation  is  applied 

K,M)  Computed  thermal  properties  for  the  Ith  line 
of  the  table;  M = 1 contains  the  results  of 
the  physical  model,  M = 2 the  thfirmo'-fit 
results  (if  any) 

K = 1 Chemical  potential 

K = 2 Enthalpy 

K = 3 Specific  heat 

K = 4 Entropy 

Temperature  value  for  the  Ith  line  of  the 
thermal  property  table,  °K 

Temperature  value,  °K 

4 . 13 1 Subroutine  THERM 

Nondimensional  specific  heat  based  on  the 
thermo  fit 

Natural  logarithm  of  the  nondimensional  tem- 
perature, ^uCT/Tq) 

Logical  variable,  .TRUE,  if  the  routine  was 
entered  through  the  entry  point  THERMl,  other' 
wise  .FALSE. 

Species  index 

Index  of  vibrational  statj6s  in  a linear  tri- 
atomic  species 

Index  of  the  electronic  states  in  a species 


MIX 


N 

SHTF 

STF 

SZl 


51 

52 

53 

WTH0 

WTTF 

WW 

XMTF 

XX 


ZT 


Z1-Z9 


Logical  variable,  set  to  .TRUE,  if  the  spec- 
ies thermal  properties  are  to  be  calculated 
by  "mixing**  results  from  the  physical  model 
and  the  thermo  fit 

Number  of  electronic  states  in  a species 

Nondimensional  enthalpy  based  on  the  thermo  fit 

Nondiraensional  entropy  based  on  the  thermo  fit 

Temporary  storage  for  a value  required  in  the 
entropy  calculation  for  a linear  triatomic 
species 

See  eq.  I (56b) 

See  eq.  I (56c) 

See  eq.  I(56d) 

Weight  of  the  physical  model  results  in  the 
"mixed"  calculation  of  species  properties 

Weight  of  the  thermo  fit  results  in  the  "mixed" 
calculation  of  species  properties 

(S2)2 

Chemical  potential  based  on  the  thermo  fit 
results 

Dummy  variable  used  in  calculations  of  elec- 
tronic state  contributions  to  species  proper- 
ties 

Difference  between  the  temperature  and  the 
switchover  temperature  CTMXXI  frcxn  the  physi- 
cal model  to  the  thermo  fit,  °K 

Storage  for  intermediate  values  in  calculations 
of  the  vibrational  contributions  to  species 
properties 


i 


V 

I 


\ 


AG 

I 

0NE 

XX 


CMSAVE 

CPT^T 

CSAVE(I) 

CTSAVE 


I 

J 

J1 

P 

S 


4.132  Siib routine  THRg^AT 
Geometric  area  ratio 

D0  index 

1.0 

Dummy  argument  for  call  to  AGSj^IlT 

4.133  Subroutine  TRANSP 

Molecular  weight  dependent  factor  used  in 
transport  calculations  (see  eqs.  171) 

Mean  molecular  weight  W for  the  mixture 

Nondimensional  frozen  specific  heat  at  con- 
stant pressure  for  the  mixture,  W Cp^/RQ 

Array  for  saving  previously  computed  values 
of  the  nondimen  si  o..  a 1 specific  heats  CCPJ(I) 

Variable  for  s /ing  previous  value  of  the  tem- 
perature ratio  CT 

Species  index 

Species  index 

J - 1 

Gas  pressure  in  atmospheres 
v/tt^ 


SSIG  Factor  used  in  computation  of  electrical  con- 

ductivity, (e/k)2/^/T^ 

TTAB  Temperature  in  °K  lor  which  transport  calcula- 

tions are  to  be  made 


J 

I 


S 

s 


i 


I 

I 

>1 

t 

I 

t 

? 

I 

I 

i 

} 

1 


i 
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ZK(L) 

ZKiwr 

ZMl(I) 

A 

AE 

ALMIl? 

ALPHA 

AM 

AMD 

AM2 

AND 

ANMIN 

APR(IA) 

AST(J) 

ASTQ(IT) 

A2 


1 - 


See  eq.  (173) 

See  eq.  (173) 

Factor  proportional  to  the  molecular  weight 
of  species  I (see  eq.  (171)) 

4,134  Sxibroutine  WEDGE 

{y  + D/2,  where  y - specific  heat  ratio 

Pree-molecule  accommodation  coefficient  for 
heat  transfer 

Minimum  angle  of  attack  for  calculation  of 
free-molecule  heat  flux  (0.01  radian) 

Angle  of  attack  in  radians 

Free- stream  Mach  number  M 

Double-precision  Mach  number  for  call  to  SH0CK 
routine 


Input  angle  of  attack  in  degrees  or  ANMIN, 
whichever  is  larger 

Minimum  angle  of  attack  for  oblique  shock  cal- 
culation (10“4  degree) 

Static  pressure  ratio,  P2/P1/  based  on  the 
oblique  shock  calculation  for  the  lAth  angle 

Hollerith  array  for  marking  heat  fluxes  which 
are  at  the  free-molecule  limit  with  an  asterisk 

Holleirith  blank  or  asterisk  for  ITth  column  of 
output  table 
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f A5 

! 


A7  A' 

C [^(T*)/  ^c(Tj^)]  • [Tj^/T*]  ; see  Sec,  8.2.2, 

Vol.  I 


; 

. 

■CAPGAM 

Angle-of-attack  parameter  P (eq,  I(481c)  or 
1(501)) 

1 

CH 

Heat  transfer  coefficients,  Cjj 

i 

\ 

i 

1 

[ 

i 

CHD 

Coefficient  0,332  A e T N^t  for  calculating 
Cjj  from  §* 

! 

1 

i 

? 

\ 

CHDFAC 

Coefficient  0,332  A€ 

1 

S 

i 

CPGM 

Single-precision  value  equal  to  T 

r 

1 '■[ 

\ 

DELSTW(IT) 

Boundary  layer  displacement  thickness  at  the 
ITth  point  along  the  wedge 

> 

\ 

DPAC 

Coefficient  7 "k^/8  A^  6 

] 

5 

1 

DFAK 

Quantity  DFAC  * t/(T:N)^ 

i 

i 

1 

EN 

Parameter  N = M v/ C/Re^ 

] 

EPS 

Quantity  e=  ('y-l)/(V  + l) 

i 

EPS2 

! 

Ei^V 

Quantity  1 + erf(S  sin  ) used  in  ccilculating 

free-molecule  limit  to  heat  flux 

S 

1 

EXPV 

2 

Quantity  c sir.cx:)  free-molecule  heat 

1 

\ 

1 

7. 

flux  calculations 

1 

P 

PINAL 


FL(K) 

GAMMA 

GAMD 

GFAC 

GFAK 

GFC 

Gm 

G2 

G3 


Logical  variable,  set  to  .TRUE,  when  calcula- 
tions have  been  done  for  all  of  the  specified 
distances  frua  the  leading  edge  for  given 
angle  of  attack  and  nose  radius 

Array  used  by  subroutine  SH0CK  to  communicate 
its  results  to  WEDGE.  See  glossary  of  symbols 
in  SH0CK  for  definitions  of  the  elements  of  FL 

Specific-heat  ratio,  y 

Double-precision  value  of  GAMMA,  for  call  to 
SI^0CK  routine 

Factor  used  in  calculating  P ; equal  to  k/2A^€^  M 
for  the  modified  Cheng-Kemp  theory,  and  to 
y k/2  A^  f for  the  unmodified  theory 

GFAC/(  tN)2 

Coefficient  k/2A^c  in  GFAC 
Meein  molecular  weight  of  gas,  g/mole 


HRATI0  Ratio  hy/hg  of  enthalpy  at  the  wall  to  the 

free- stream  stagnation  enthalpy 

HW  Gas  enthalpy  at  the  wall  temperature,  cal/g 

HO  Pree-streim  stagnation  enthalpy,  cal/g 

lA  Index  of  angles  of  attack 

lAMAX  Index  of  angle  of  attack  at  which  classical 

oblique  shock  solution  gives  a detached  shock 
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lERR 


IFM 

IR 

IS9 

IT 

ITAB 

ITH 

ITHS 

J 

NWl 

NW2 

^GA 

PFAC 

PFAK 

PI 

PINT 


Error  indicator  for  classical  oblique  shock 
solution,  set  in  SH0CK  I'outine: 

0 Detached  shock 

1 Attached  shock  - normal  case 

2 Convergence  failure 

Control  variable;  reset  from  0 to  1 if  any 
heat  flux  value  is  reduced  to  the  free- 
molecule  limit 

Index  of  leading  edge  radii 

AbsoTute  value  of  ISW9B 

Index  of  colvimns  in  the  output  table 

Index  of  blocks  in  the  output  table 

Index  equal  to  1 for  the  modified  Cheng- Kemp 
theory,  equal  to  2 for  the  unmodified  theory 

Value  of  ITH  before  resetting  because  of 
lERR  =0 

Implied  D0  index  in  WRITE  statements 

Index  of  points  in  the  uniform  sequence  of 
distances  from  the  leading  edge 

Index  of  specified  distances  from  the  leading 
edge 

Parameter  n , eq.  1(502) 

Quantity  4 A^  6 ^ M^/  ir  k^ 

Coefficient  PFAC  • ( t N)^  in  formula  for  pres- 
sure on  wedge 

Value  3.1415927 

Free-streeua  pressure,  atm 
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PRATI0 

Ratio  of  pressure  on  wedge  to  free-stream 
pressure,  Py/Px 

PW\.  (IT) 

Pressure  on  the  wedge  at  the  ITth  distance 
£r<»a  the  leading  edge,  atm 

QFM(IA) 

Free-molecule  limit  to  the  heat  flux  for  the 
lAth  angle  of  attadc,  Btu/ft^-sec 

QrMCl 

Coefficient  O.OSPf  5 Px^e  n/R^x/^  ^ 
calculation  of  free-molecule  heat  flux,  eq. 
1(512) 

QFMC2 

Coefficient  s2  + [v  - (r+l)  T^T^3/(y-l) 

in  free-molecule  heat  flux  calculation,  eq. 
1(512) 

QWW(IT) 

Heat  flux  to  the  wedge  at  the  ITth  distance 
from  the  leading  edge,  Btu/ft^-sec 

REPP 

Reynolds  nximber  per  foot 

RGC 

Gas  constant  (8.314  x 10^  erg/mole  °K) 

RH0IRF 

Free-stream  density,  p 

RNAME 

Hollerith  routine  name  for  call  to  subrovtine 
DUMP 

RU2 

Dynamic  pressure  /°x^X^ 

S 

Free-molecule  flow  parameter  VL'/'Y/2 

SOT 

Qucintity  \/zz * + SLV  in  modified  Cheng-Remp 
calculation;  /z^  in  unmodified  calculation 

SQTPI 

/F 

SSA 

S sin 

SSASQ 

(S  sin  oC  )2 
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f 

K 


TAU 

TAUN 

TAUN2 

TAUN3 

TAUN4 

TAUN6 

TINP 

TN 

TRATI0 

TREP 

XJNIF 

UN(J) 

VMUINF 

WK2 

WK3 

WK4 

WXVl 


Peurataeter  x=  0.664  + 1.73 
X N 

( XN)2 

( xN)3 

(XN)^ 

(XN)^ 

Free- stream  ten5>erature , 

Diameter  of  leading  edge,  incl 

Ratio  of  wedge  surface  temperature  to  free- 
strecim  temperature 

Reference  ten5>erature,  (1+3  h^^/ho)  Tq/6, 
where  Tq  is  the  free-stream  stagnation  tem- 
perature behind  a frozen  normal  shock 

Free-stream  velocity,  uj^ 

Hollerith  eirray  for  labelling  the  output  as 
being  based  on  the  modified  or  unmodified 
Cheng-Kemp  theory 

Free-stream  viscosity,  Ib/ft-sec 

Square  of  leading-edge  drag  coefficient,  k^ 

k^ 

k< 

Next  distance  frcrni  the  leading  edge  in  the 
specified  uniform  sequence,  inch 
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WXV2 


XC 

XH 

XS 

XW(IT) 

YS(IT) 

YSFAC 

YSPAK 

Z 

ZER0 

ZETA 

ZFAC 

ZFAK 

ZTA(IT) 

ZZP 

ZZPP 


1 


Next  separately  specified  distance  from  the  lead- 
ing edge,  inch 

Coordinate  x parallel  to  the  free-streara  flow  for 
a point  on  the  surface  of  the  wedge  at  a distance 
XW(IT)  from  the  leading  edge;  XC  = XW(IT)*cos  , 
inch 

Distance  from  the  leading  edge  up  to  which  merg- 
ing effects  are  in^ortant  (inch);  see  eq.  I (510a) 

Distance  from  the  leading  edge  beyond  which  the 
strong-interaction  approximation  breaks  down 
(inch);  see  eq.  I (510b) 

The  ITth  specified  distance  from  the  leading  edge, 
inch 

Shock  ordinate  at  the  ITth  distance  from  the  lead- 
ing edge , inch 

Coefficient  'y^k^/8  A^€  in  calculation  of  shock 
ordinate 

Coefficient  YSFAC »t/(  tN)^  in  calculation  of  shock 
oj^iinate 

Nondimensional  shock  ordinate  z;  eq.  I (481a) 


0.0 

Nondimensional  coordinate  < parallel  to  free- 
stream  flow;  see  eq.  I (481b) 

Coefficient  16  A^e  / r^k^ 

Coefficient  ZFAC*  ( “tN)  Vt 

^ at  the  ITth  distance  from  the  leading  edge 
zz* 

(zz*) ' 
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1 


I 


I 


T 


ZZPS  z./  as  a single-precision  value 


4-135  Subroutine  \iJES0LN 

BO 

-IMMHIi— ..I 

Coefficient  v 6 in  initial  appro>d.mation 

to  ^ 

B1 

Coefficient  JT  in  initial  approximation  to 

CALLED 

Logical  variable  used  to  bypass  resetting  of 
the  "C"  coefficients  after  the  first  call  to 
WES0LN 

CAPGAM 

Angle  of  attack  parameter,  P 

CGSQ 

r" 

Cl 

1.  The  "C"  symbols  are  coefficients  in  the 
Cheng-Kemp  analytical  solution  of  the  Cheng 
equation  for  P = 0 

C2 

2. 

C3 

1/3 

C4 

4. 

C9 

9. 

C32 

1.5 

C103 

10/3 

C229 

22/9 

C463 

46/3 

C769 

76/9 

DIDZT 

6.  h /dC  for  Nevrton-Raphson  iteration 

i 

I 
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1 


i 

f 


i 


' t : 

It  i 


i 


N 

Iteration  counter 

i 

i 

PI 

^ 1/3 

1 

P2 

^ V2 

1 

P12 

to 

1 

Q1 

1 + x" 

\ 

Q2 

U + /x 

} 

: 

1 

\ 

■i 

Q3 

(1  + >Tx 

1 

i 

Q4 

(1  + /a 

\ 

1 

i 

Q5 

in  (1  + >IX  ) 

) 

SQTL 

JT 

1 

XL 

5 

i 

Z 

Nondiraensional  shock  ordinate,  z 

5 

i 

ZETA 

Nondimens ional  coordinate  C parallel  to  the 
direction  of  free-stream  flow 

1 

ZT 

f calculated  using  trial  value  of  X 

ZZP 

zz' 

ZZPP 

(zz')' 

4.136  Subroutine  XSECT 


Because  a number  of  symbols  are  used  for  different  pur- 
poses in  different  sections  of  subroutine  XSECT,  the  symbols 
used  in  each  section  of  the  subroutine  are  defined  separately 
below. 


I 


I. 
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Statements  to  Statement  40 


i 


I 


I(J) 

J 

JJ 

K 

L 


J 

K 


KIJ 

KM 


Revised  index  for  species  J in  master  species 
list  (common  variable) 

Index  of  species  in  master  species  list 

Revised  index  for  species  not  included  in 
transport  calculations 

Count  of  species 

Revised  index  for  species  included  in  treuis- 
port  calculations 

Statements  40  to  110 


Species  index 

Index  of  steps  in  the  cross  section  calculation 
in  the  order  in  which  they  are  carried  out 

Index  in  packed  lists  of  species  pairs  to 
which  edited  cross  section  data  are  applied 

Index  of  parameters  for  a single  step  of 
the  cross  section  calculation 


KV 

L 


Index  in  packed  list  of  parameter  values  for 
all  steps  of  the  cross  section  calculation 

Species  index;  step  of  cross  section  computa- 
tions 


LL  First  index  of  species  pair 

LQ  NQ(L) 


M 


Index  of  the  Kth  step  in  the  cross  section 
calculation,  equal  to  ISEQ(K) 
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1 


i 


MM7 

NK 

I(J) 

II 

III 
J 

JJ 

K 

L 

LL 

LQ 

LQl 


LQ2 


MV 


Total  number  of  parameters  in  V array 

Index  of  the  option  to  be  used  in  the  Kth 
step;  also,  number  of  parameters  used  in 
step 

Statements  110  through  190 


Revised  index  for  species  J in  master  list 
(common  variable) 

First  index  of  unused  species  pair 
II- 1 

Second  index  of  species  pair  referenced  in 
V array;  species  index  in  master  species 
list 

Index  of  species  added  to  cross  section  com- 
putation 

Index  in  master  species  list  ot  £>j^ecies  added 
to  cross  section  computations 

Index  of  step  in  cross  section  computations 

First  index  of  species  pair  referenced  in  V 
array 

Location  of  species  pair  in  IQ,  JQ  array 

Location  in  IQ,  JQ  array  of  first  species 
pair  for  step 

Location  in  IQ,  JQ  array  of  last  species  pair 
for  step 

Dummy  variable  (not  used) 


4 
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} 

i 


IV 

J 

JV 

K 

L 

LL 

LQ 

liQl 

LQ2 

LV 

MM 

MMV 

MV 

NSV 


First  index  of  species  pair  ccxnputed  with 
option  KQ  = 10 

Second  index  of  species  pair  to  be  moved 

Second  index  of  species  pair  computed  with 
option  KQ  = 10 

Count  of  array  elements;  dummy  species  index 

Step  in  cross  section  computations;  dummy 
species  index 

First  index  of  species  pair  to  be  moved 

5 

Location  o£  species  pair  IV,  JV  in  IQ,  JQ 

array  j 

I 

Location  in  IQ,  JQ  array  of  last  species  pair 

for  step  L-1  of  computations  - 

I 

Location  in  IQ,  JQ  array  of  last  species  pair  j 

for  step  L of  computations  ■ 

I 

Index  of  array  elements  to  be  moved  i 

Location  in  V array  of  last  parameter  for 

step  L-1  of  computations  : 

Total  number  of  parameters  in  V array  ; 

Index  for  parameters  in  V curray  5 

Total  number  of  steps  in  edited  cross  section  i 

confutations  } 


II 

IV 

J 

JJ 

JV 

L 

LL 

LQ 

IQ2 

MV 


I(K) 

IE 


Card  XSE  213  to  Statement  300 

First  index  of  unused  storage  location 
for  species  pair 

First  index  of  a species  pair 

Second  index  of  species  pair  to  be 
moved 

Second  index  of  unused  storage  location 
for  species  pair 

Second  index  of  a species  pair 

Step  of  cross  section  computations 

First  index  of  species  pair  to  be 
moved 

Index  of  species  pair  in  IQ,  JQ  array 

Total  nvuttber  of  species  pairs  in  IQ,  JQ 
array 

Dummy  argument,  value  not  required 

Statement  380  to  end  of  subroutine 

Species  for  which  cross  section  data  are 
to  be  supplied  (common  variable) 

For  IE  = 1,  cross  section  data  are  not 
supplied  for  electrons 
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Absolute  value  of  IZ  for  a spec- 
ies 

Charge  of  species  L in  units  of 
electron  charge  (Note  that  IZ  is 
negative  for  positively  charged 
species) 

Index  indicating  charge  for  spec- 
ies for  which  cross  sections  are 
to  be  supplied  (see  Table  III) 

Index  indicating  whether  cross 
sections  are  to  be  supplied  for 
electrons  (see  Table  III) 

Index  indicating  charge  of  spec- 
ies for  which  cross  sections  are 
to  be  supplied  (see  Table  III) 

Step  in  cross  section  computations; 
species  index 

Computational  step  at  which  addi- 
tional cross  section  data  are  sup- 
plied for  neutral- neutral  interac- 
tions 

Total  ntamber  of  parameters  in  V 
array 

Niunber  of  species  for  which  cross 
section  data  are  to  be  supplied 


f 


VCOUL(M,KK, J, JJ)  Parameters  V(M)  for  effective  Coulomb 

cross  sections  between  two  species  with 
the  electronic  charges  KK  and  J,  from 
eqs.  I (100a).  The  parameters  for  JJ  = 1 
are  for  ion-ion  collisions,  and  for  JJ  = 
2 for  ion-electron  collisions 


/ 


I 

> 


5.  REFERENCES  TO  COMMON  VARIABLES 

This  section  presents  a computer-generated  analysis 
of  references  to  common  variables  and  common-equivalent 
variables  in  the  NATA  code.  The  variables  are  listed  in 
alphanumeric  order.  For  each  variable,  the  name  of  the 
common  block  containing  it  is  given.  The  block  name  / / 

refers  to  unlabelled  common.  An  asterisk  following  the 
block  name  indicates  that  the  variable  does  not  appear  in 
common,  but  is  equ'valenced  to  a common  variable  in  the 
designated  block  in  one  or  more  routines.  The  routines 
in  which  each  variable  is  referenced  are  indicated  by  num- 
bers, based  on  the  list  of  routine  names  given  on  the  first 
page.  Routine  number  2 is  the  block  data  routine  containing 
species,  reaction,  geometry,  and  other  data;  number  3 is 
the  transport  cross  section  block  data  routine.  The  rou- 
tines EXP  and  RESET  are  missing  from  the  list  because  the 
analysis  was  carried  out  for  the  UNIVAC  version  of  NATA, 
which  does  not  contain  these  routines.  Neither  EXP  nor 
RESET  contains  any  commen  blocks. 

Lines  containing  a blank  variable  name  are  continua- 
tions of  the  preceding  lines,  in  cases  in  which  the  number 
of  referencing  routines  is  too  large  to  be  printed  on  a 
single  line. 

Appearance  of  a variable  in  a common  or  equivalence 
statement  is  not  considered  to  constitute  a reference.  A 
routine  is  listed  as  referencing  a given  variable  if  the 
variable  appears  in  an  arithmetic  or  DATA  statement,  a READ  or 
WRITE  statement  or  a NAMELIST  statement,  or  is  used  as  an 
index  or  a siabroutine  or  function  argument. 

In  the  case  of  a common-equivalent  variable,  the  program 
used  to  prepare  the  list  checks  for  the  presence  of  the 
associated  common  block  in  the  routine,  but  does  not  veri- 
fy the  presence  of  the  equivalence  statement  in  the  routine. 
For  this  reason,  some  of  the  listed  references  to  common- 
equivalent  variables  are  spurious.  For  example,  in  sub- 
routine BLAYER,  the  variable  X is  equLvalenced  to  the 
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k 


I 


i 


variable  CX  in  un labelled  common.  Subroutines  GE0MAR, 
0UT1,  and  TRANSP  are  also  listed  as  referencing  X.  All 
three  of  these  references  are  spurious  because  X is  not 
equivalenced  to  a common  variable  in  these  three  routines. 

In  some  cases,  different  names  are  used  for  the  same 
' common  variable  in  different  routines.  All  such  names  are 
included  in  the  list  below,  each  with  its  own  list  of  ref- 
erencing routines. 


i 


i 


? 
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INOICFS  OF  ROUTINFS 


/ 

I 


I 

I 


I 


I 


I 
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6.  LISTING  OF  THE  NATA  CODE 

The  present  section  ccn  sists  of  a complete  source 
program  listing  of  the  NATA  code.  TTie  routines  appear 
in  the  same  order  in  which  their  names  are  listed  at  the 
beginning  of  Section  5,  i.e.,  main  program,  block  data 
routines,  and  then  all  subroutines  and  functions  in  alpha- 
numeric order  of  their  names. 
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SUBROUTINE  AXFIT  AXF 
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APPENDIX 


PROGRAMMER'S  MANUAL  FOR  THE  NOZFIT  CODE 

The  present  appendix  documents  the  programming  of  the 
NOZFIT  code,  a small  computer  program  for  generating  NATA- 
type  curvefits  to  nozzle  profiles.  A user's  manual  for 
NOZFIT  is  presented  in  Appendix  D of  Volume  II  of  this  report 
(ref.  2). 

Section  A.l  of  this  appendix  analyzes  the  NOZFIT  main 
program  and  the  subroutines  used  to  produce  plots  of  nozzle 
profile  curvefits.  Section  A. 2 is  a glossary  of  Fortran 
symbols  for  NOZFIT.  Finally,  a source  listing  of  NOZFIT 
and  its  associated  subroutines  is  presented  in  Section  A.3.- 

A.l  Analysis  of  NOZFIT  Routines 

This  section  discusses  and  explains  the  main  program 
and  each  subroutine  of  the  NOZFIT  code.  The  purpose  of  this 
exposition  is  to  provide  an  entry  into  the  ceding  for  pro- 
grammers who  wish  to  analyze  errors,  make  corrections,  or 
introduce  modificacions  into  the  code. 

A. 1.1  NOZFIT  Main  Program 

NOZFIT  consists  of  two  main  sections.  The  first  section 
computes  the  parameters  of  the  profile  fit  from  the  input 
data  (see  Appendix  D of  Volume  II);  the  second  produces 
printed,  punched,  and  plotted  output. 

(1)  Computation  of  profile  fit  parameters.  — The 
parameters*  of  the  curvefit  to  the  nozzle  or  channel  profile 
are  calculated  in  the  loop  D0  140,  L = 1,  2.  For  L = 1,  the 
parameters  of  the  upstream  sections  are  determined;  for  L = 2, 
the  downstream  sections  are  treated^  For  each  region,  the 
calculations  start  at  the  throat  and  proceed  away  from  the 
throat.  The  index  K enumerates  the  profile  sections  for 


*The  profile  fit  parameters  and  the  analytical  forms  in 
which  they  appear  are  defined  in  Section  4.3  of  Volume  I 
(ref.  1). 
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each  region  in  the  order  in  which  they  are  determined.  The 
index  J labels  the  sections  for  the  entire  nozzle,  both  up- 
stream and  downstream,  in  sequence  starting  at  the  upstream 
end.  Finally,  JP  indexes  the  downstream  boundaries  of  the 
profile  sections  in  sequence  starting  at  the  upstream  end. 

The  algorithm  used  to  determine  the  parameters  for  each. 
section  depends  upon  the  input  "condition"  index,  IC0ND(J). 

a.  IC0ND(J)  =1 


In  each  region  (upstream  or  downstream) , the  first 
section  treated  is  the  one. adjacent  to  the  throat.  This 
section  is  required  to  be  a circular  arc  convex  toward  the 
axis  (ISHAPE(J)  =s  2),  and  must  be.  specif ied  as  a throat 
section  (IC0SJD(J)  = 1).  For  such  a throat  section,  dy/dx 
must  be  zero  at  x = 0.  Thus,  equation  1(122)  shows  that 
the  abscissa  P2  of  the  circle  center  must  be  zero. 


= 0 


(178) 


The  circle  radius  is  equal  to  PAR(1,J): 
Po  = 2.54  • PAR(1,J) 


(179) 


where  the  numerical  factor  converts  from  the  inch  unit  used 
in  the  input  to  the  centimeter  unit  used  in  the  output. 
Finally,  the  ordinate  of  the  circle  center  is  equal  to  the 
throat  radius  plus  the  circle  radius  (see  figure  28): 


■1  ^ P3  + • 2.54  ' DTH 


(180) 


where  DTH  is  the  throat  diameter  in  inches, 
b.  IC0ND(J)  = 2 

For  the  condition  IC0ND(J)  = 2,  the  current  profile 
section  is  assumed  to  be  straight  (ISHAPE(J)  = 1)  and  tangent 
to  an  adjacent  circular  section  nearer  the  throat.  The  in- 
dex of  the  section  nearer  the  throat  is  denoted  by  INDEX. 

The  profile  parameters  for  this  section  are  already  known, 
because  of  the  order  which  the  sections  are  treated. 
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Since  the  sections  can  be  either  upstream  or  downstream 
of  the  throat,  and  since  the  adjacent  section  INDEX  can  be 
either  convex  ( ISHAPE { INDEX ) = 2)  or  concave  (ISHAPE( INDEX)  = 3) 
toward  the  axis,  there  are  four  cases  to  be  considered,  as 
illustrated  in  figure  29.  These  cases  are  all  treated  in 
one  set  of  formulas  with  the  aid  of  the  following  symbols: 


-1  upstream 
+1  downstream 


(181) 


{-1  for  circle  bottom,  ISHAPE  (INDEX)  = 2 
+1  for  circle  top,  ISHAPE (INDEX)  = 3 

(182) 


The  symbol  S^^  has  the  same  sign  as  the  slope  of  the  current, 
straight  section;  S^  is  negative  if  the  circle  center  C is 
above  the  line  passing  through  the  straight  section,  positive 
if  the  center  is  below. 


The  point  of  tangency  of  the  straight  and  circular 
sections  is  marked  by  a "1"  in  each  part  of  figure  29.  The 
coordinates  of  this  point  are 

Xi  = Xj,  - Sj^  S2  R sin  0 (183a) 

Yjl  = Yj,  + S2  R cos  0 (183b) 

Here  R = PARAM(3, INDEX)  is  the  circle  radius,  and 
0 = PAR(1,J)  is  the  angle  of  inclination  of  the  straight 
section  to  the  nozzle  Sxis,  taken  positive.  It  is  easy  to 
show  that  the  internal  angle  of  the  triangle  at  the  vertex 
C is  equal  to  0.  Also  X^,  and  Y^,  are  the  coordinates  of  the 
circle  center  in  the  adjacent  circular  section  nearer  the 
throat: 

X^  = PARAM  (2, INDEX)  («83c) 


Yj,  = PARAM  (1,  INDEX) 


(183d) 
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The  equation  for  the  straight  section  is 
Y - = Si  tan  0 • (X  - Xj^) 

Thus,  from  equation  1(121), 

Pi  = Yi  - Si  Xi  tan  0 


(184) 


. (185) 


= tan  0 


(186) 


C.  IC0ND(J)  = 3 

For  the  condition  IC0ND(J)  = 3,  the  current  profile 
section  is  assumed  to  be  circular  and  tangent  to  an  adjoin- 
ing straight  section  which  is  nc  rer  the  throat.  The 
abscissa  of  the  point  of  tangency  is  assumed  to  be  PAR(2,J) 
(inches).  As  illustrated  in  figure  30,  there  are  again  four 
cases  to  be  considered.  As  in  the  preceding  case,  the  quan- 
tities and  S2,  equations  (181)  and  (182),  are  used  to 
treat  all  four  cases  in  a single  set  of  formulas. 

In  the  present  case,  the  coordinates  of  the  point  of 
tangency  ("1"  in  figure  30)  are  known,  since 


il  = 2.54  • PAR(2,J) 


(187) 


and  Y|^  can  be  calculated  from  equation  1(121)  using  the 
known  parameter  values  for  the  adjoining  straight  section 
nearer  the  throat.  The  basic  problem  is  to  determine  the 
coordinates  (X^,  Y^,)  of  the  circle  center.  Equations  (183) 
are  again  applicable,  and  give 


= X^  + S 2^  S 2 R s in  0 


(188a) 


Yj,  = Yj^  - S2  R cos  0 


(188b) 


From  equations  1(122)  and  1(123),  ?2  = and  P^^  = Y^,.  The 
radius  P3  is 
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Figure  30.  Gecanetry  of 


Dovmstream,  ISHAPE  ( j) 


2 Condition .IC0ND(J)  = 3 


P3  = 2.54  • PAR(1,J)  (189) 

d.  IC0ND(J)  = 4 

The  condition  ICj3ND(J)  = 4 allows  the  deterr.iination  of  a 
circular  section  which  is  tangent  to  two  adjacent  straiaht  sec- 
tions (J+1  and  J-1) . Figure  31  illustrates  the  four  cases  which 
must  be  considered.  The  straight  section  ‘ earer  the  throat  has 
the  index  INDEX;  the  one  farther  from  the  throat  has  the  index 
INDX2.  The  angles  - PAR  (1,  INDEX)  and  ©3  = PAR(1,INDX2)  are 
known  and  the  abscissa  X|^  = 2,54  • PAR(2,J)  of  the  intersec- 
tion of  the  two  lines  is  given.  Since  the  curvefit  parameters 
for  the  section  INDEX  have  already  been  determined,  the  ordi- 
nate Yi  of  the  intersection  can  be  calculated  from  eg.  1(121). 

Since  the  circular  section  to  be  determined  is  tangent  to 
both  lines,  its  center  C lies  on  the  bisector  of  the  angle  be- 
tween the  two  lines.  The  length  of  this  bisector,  from  the  in- 
tersection point  “I"  to  the  circle  center  “C",  is  denoted  by  L 
(or  XL  in  the  Fortran) . Also,  the  angle  between  the  bisector 
and  either  of  the  lines  is  denoted  b‘  p.  This  angle  is  given  by 

0 = 1 (tt  - l©2  “ ®l'  ) (150). 

since  ( tt  - l©2  "*  ®1^  ) Is  the  included  angle  between  the  lines. 
Then,  from  either  of  the  right  triangles  with  a vertex  at  C, 


L = R/sin  0 (191) 

For  ISHAPE(J)  = 2 (parts  (a)  and  (c)  of  figure  31),  the  angle 
ClA  is  equal  to  0 - ©j.*  ISHAPE(J)  = 3 (parts  (b)  and  (d) 

of  figure  31),  angle  CIA  is  equal  to  0 - ©3.  Hence,  for 
ISHAPE(J)  =2, 


X^,  = Xi  - L cos  {0  - ©2^)  (192a) 


Yy  = Yi  + L sin  {0  - ©3^) 

For  ISHAPE(J)  = 3, 

Xc  ~ Xi  + L cos  (0  - © 


2^ 


(192b) 


(193a) 
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Downstream, 


ISHAPE(J)  = 2 


Downstream,  ISHAPE(J) 


Figure  31.  Geometry  of  the  Condition  1C3KD(:7)  = 4 


(193b) 


Y^,  = - L sin  (0  - ©2> 

For  either  case,  the  distance  from  point  "I"  to  the 
junction  point  "P"  between  the  circular  section  and  the 
straight  section  nearer  the  throat  is  equal  to  L cos  0. 

Ihe  projection  of  this  distance  onto  the  X-axis  is  L cos  0 • 
cos  Hence,  the  abscissa  of  the  junction  point  is 

Xp  = Xji^  - S-j^  L cos  0 cos  OjL  (194) 

It  is  clear  from  figure  31  that  ISHAPE(J)  can  be 
equal  to  2 only  if  ©2  > ©i  and  ISHAPE(J)  can  be  equal  to 
3 only  if  ©^  > ©2*  If  user  inputs  a value  for  ISHAPE(J) 
violating  these  conditions,  an  error  message  is  written 
and  execution  is  terminated. 

(2)  Input  and  Output.  — NATA  and  its  auxiliary 
programs  are  designed  for  operation  on  either  a UNIVAC  1108 
or  an  IBM  System  360.  So  far  as  N0ZPIT  is  concerned,  the 
principal  c’ifference  between  the  two  computer  systems  is 
the  word  length.  The  UNIVAC  1108  contains  36-bit  words 
which  can  store  6 alphanumeric  characters.  The  IBM  360 
contains  32-  and  64-bit  words  which  can  store  4 or  8 
alphanumeric  characters,  respectively.  The  plot  routines 
used  at  NASA/JSC  on  the  UNIVAC  1108  and  at  Avco  Systems 
Division  on  the  IBM  360/75  assume  ~hat  arrays  of  alpha- 
numeric information  are  close-packed  (i.e.,  with  no  unused 
characters).  To  provide  correct  handling  of  the  informa- 
tion on  the  "header"  card*,  N0ZFIT  contains  read  and  write 
statements  based  on  both  the  A6  format  (for  the  UNIVAC) and 
the  A4  format  (for  the  IBM  360).  The  correct  input/output 
statements  for  alphanumeric  information  are  selected  by 
reference  to  an  indicator  IW0RDL,  which  is  set  in  sub- 
routine FRAMES  (see  below).  Two  versions  of  FRAMEB  are 
available,  one  for  use  on  the  UNIVAC  1108  at  the  Johnson 
Space  Center,  the  other  for  use  on  the  IBM  360/75  at  Avco. 
Apart  from  the  differences  in  this  one  subroutine,  N0ZFIT 


*See  discussion  of  N0ZFIT  inputs  in  Appendix  D of  Volume 
II  (ref.  2). 
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and  its  plot  subroutines  are  fully  compatible  with  both 
computer  systems. 

The  coding  of  the  printed  and  punched  output  of  the 
profile  curvefit  parameters  is  straightforward.  In. the 
profile  calculation  (statements  240  to  310),  the  abscissa 
X is  varied  by  increments  of  0.03  inch  from  X = XSTART  to 
X = XSTART  + 6 inches.  At  each  X,  the  index  K of  the 
profile  section  in  which  X lies  is  determined  by  finding 
the  first  K for  which  the  downstream  boundary  ATP(K)  is 
greater  than  X.  The  ordinate  Y is  then  computed  frtxn 
equation  1(121),  1(122),  or  1(123)  according  as  iSHAPE(K) 
is  equal  to  1,  2,  or  3.  The  result  of  this  calculation  is 
in  centimeters,  and  is  converted  into  inches  for  output. 

Finally,  if  the  indicator  PL0TS  is  .TRUE.,  the  profile 
is  plotted  by  a call  to  subroutine  GRAPH.  After  the  final 
case  in  the  job  (ENDJOB  = .TRUE.),  the  entry  FRAMB2  of 
subroutine  FRAMED  is  called.  If  the  program  is  being  rim 
on  the  Avco  IBM  360/75,  FRAMB2  calls  a library  routine 
which  closes  the  plot  data  set. 

A. 1.2  Subroutine  FRAMED 

Subroutine  FRAMED  contains  all  of  the  irreconcilable 
differences  between  the  UNIVAC  1108  and  IBM  360  versions 
of  N0ZFIT.  Two  versions  of  this  routine  are  provided 
(Section  A. 3),  one  for  each  type  of  computer  system. 

The  IM4  360  version  sets  the  indicator  IW0RDL  to  2, 
to  induce  N0ZFxT  to  use  A4  formats  in  reading  and  writing 
alphanumeric  information.  It  also  calls  the  Avco  library 
routine  IDFRMV  to  produce  an  identification  frame  preceding 
the  plots  of  nozzle  profiles,  if  the  control  variable 
PL0TS  is  .TRUE..  When  called  through  the  entry  FRAMB2,  it 
calls  the  Avco  library  routine  PLTND  to  empty  the  plot 
buffer  and  close  the  plotting  data  set. 

The  UNIVAC  1108  version  of  FRAMED  sets  IW0RBL  to  1, 
to  induce  N0ZFIT  to  use  A6  formats  in  reading  and  writing 
alphanumeric  information.  It  performs  no  other  function. 
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A p"’ot  identification  frame  is  produced  automatical ].y  on 
the  1108  computers  at  NASA/JSC  when  plots  are  requested 
on  the  J0B  card,  and  the  data  set  is  also  closed  auto- 
matically. 


A . 1 . 3 Subroutine  GRAPH 

GRAPH  is  a general-purpose  plotting  routine  which 
was  developed  for  use  in  the  auxiliary  programs  to  the 
NATA  code.  It  uses  several  lower  level  plot  routines 
programmed  by  North  American  Aviation  (NAA)  as  software 
for  the  S-C  4020  high-speed  microfilm  recorder.  The 
capabilities  of  GRAPH  may  be  summarized  as  follows; 

(1)  It  produces  Cartesian  graphs  of  Y versus  X from 
data  stored  in  arrays. 

(2)  The  data  points  can  be  displayed  by  up  to  10 
different  plot  symbols,  or  not  displayed. 

(3)  The  data  points  can  be  connected  by  lines,  or 
not  connected.  The  lines  can  be  continuous, 

‘dashed  (with  user-controlled  dash  length), 
dotted,  or  traced  by  a string  of  Charactron 
symbols. 

(4)  Different  data  sets  can  be  plotted  on  the  same 
frame. • The  points  from  the  different  data  sets 
can  be  represented  by  different  plot  symbols 
and/or  connected  by  lines  of  different  types. 

(5)  A parameter  value  can  be  associated  with  each 
data  set.  The  curves  for  different  data  sets 
can  be  labelled  with  numerical  labels  and  a 
table  displaying  the  labels  and  the  associated 
parameter  values  can  be  shown  in  the  margin  to 
the  right  of  the  graph.  Up  to  three  distinct 
parameters,  each  with  up  to  10  values,  can  be 
included  in  a single  plot. 


:he  arguments  in  the  calling  sequence  of  GRAPH  are 

:d  in  the  Glossary  of  Fortran  Symbols  (Section  A.2). 

If  a table  of  parameter  values  is  to  be  printed  in 
tlvi  f!rame,  the  first  call  to  GRAPH  must  be  preceded  by  a 
call  to  the  NAA  routine  SETMIV  (references  3,  17)  to 
pjrovide  the  required  space  in  the  right  margin: 

(?^L  SETMIV  (30,  125,  24,  24) 

(1)  Grid  generation.  — The  first  part  of  GRAPH, 
lown  to  statement  110,  is  executed  only  when  the  routine 
is  called  with  NF  0 to  establish  the  grid  for  a new 
frame.  In  this  case,  the  counter  JCURVE  for  data  sets 
plotted  and  the  counter  NPL  for  parameter  tables  are 
initialized  to  zero,  and  the  NAA  routine  SMXYV  (references 
3,  17)  is  called  to  establish  the  logarithmic  or  linear 
mode  for  each  axis  as  indicated  by  the  GRAPH  arguments  LX, 
LY,  Then  the  NAA  routine  DXDYV  (references  3,  17)  is 
called  for  each  axis  to  determine  the  arguments  DX,  DY, 

NNl',  MMM,  III,  JJJ,  NXX,  NYY  Of  subroutine  GRIDIV.  If 
either  axis  is  to  be  used  as  a logarithmic  scale  (LX  ^ 0 
or  LY  0),  t>  the  corresponding  call  to  DXDYV  is  skipped, 
and  DX  and  DY  are  set  to  1 in  accordance  with  instructions 
in  references  3 and  .17. 

Beginning  at  statement  50,  the  parameters  NXY(l)  and 
NXY(2),  which  determine  the  numbers  of  characters  to  be 
displayed  in  the  labels  of  vertical  and  horizontal  grid 
lines,  are  established.  The  corresponding  values  NXX  and 
NYY  provided  by  DXDYV  were  found  to  be  unsatisfactory  in 
some  appliri  .ions.  For  each  axis,  if  log^o  of  fhe  maximum 
absolute  value  to  be  plotted  is  greater  than’  5 or  less 
than  -3,  the  grid-line  labels  are  printed  in  scientific 
nota^-xon,  with  three  significant  digits,  by  setting 
NX^CI)  = -3.  Otherwise,  a fixed-point  format  is  used, 

V’  _h  a number  of  characters  determined  from  the  magnitude 
of  the  maximum  value  to  be  plotted. 

N'‘;c^  , the  -GRIVlV  arguments  III  and  JJJ  are  reversed 
in  sigi  to  force  placement  of  the  grid  line  labels  outside 


of  the  grid  area.  Also,  if  numerical  labels  for  the 
individual  curves  are  to  be  displayed,  the  lower  limits 
XL  and  YL  are  decreased  slightly,  and  the  upper  limit  YU 
is  increased  slightly  .to  allow  space  for  the  labels  within 
the  grid  area.  Then  GRIDlV  is  called  to  draw  the  grid  and 
to  establish  scaling  factors  for  subsequent  use  in  plot- 
ting. Finally,  the  counter  ICURVE  for  curves  in  the  first 
family  (i.e.,  for  various  values  of  the  first  parameter, 
if  any)  is  initialized  to  zero. 

(2)  Plotting  of  a data  set.  — The  second  part  of 
GRAPH  plots  an  indxvidual  data  set,  that  is,  the  data  con- 
tained in  the  arrays  X and  Y for  a single  call  to  GRAPH. 
This  section  of  the  subroutine  extends  from  statement  110 
down  to  statement  190. 

First,  the  counters  ICURVE  and  JCURVE  are  each  incre- 
mented by  1.  If  ICURVE  is  equal  to  1 after  this  increase, 
the  counter  NPL  for  parameter  tables  is  also  increased  by 
1,  Note  that  ICURVE  is  equal  to  1 at  this  point  if  this 
is  the  first  call  to  GRAPH  for  a new  frame,  or  if  ICURVE 
was  set  to  zero  in  the  calling  routine  before  the  current 
call  to  GRAPH.  Setting  ICURVE  to  0 in, the  calling  routine 
is  a signal  to  GRAPH  that  a new  family  of  curves  with  a 
new  parameter  is  being  started. 

Next,  the  NAA  routines  NXV  and  NYV  are  used  to  initia- 
lize IXl  and  lYl  to  the  raster  coordinates  corresponding 
to  X(l)  and  Y(l),  respectively.  Then  the  plot  symbol  to 
be  used  in  displaying  the  data  points  is  selected  on  the 
basis  of  the  arguments  NC(1)  and  NC(2).  If  NC(1)  is  nega- 
tive, the  symbol  index  NSYMBL  is  set  equal  to  ICURVE,  so 
that  a new  symbol  from  the  standard  table  in  P0INTB  is 
used  for  the  points  on  each  successive  curve  in  a family 
of  curves.  If  NC(1)  is  positive,  NSYMBL  is  set  equal  to 
NC(1);  this  option  allows  direct  user  control  of  the  plot 
symbol.  For  NC(1)  = 0,  the  individual  points  are  not 
plotted. 
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The  D0  loop  from  statement  140  to  statement  180  plots 
the  data  points  and  draws  the  connecting  lines,  if  any. 
First,  subroutine  P0INTB  (Section  A. 1.4  of  this  appendix) 
is  called  to  plot  the  current  (Ith)  data  point.  Then  12 
is  set  equal  to  I+l.  If  LINE(l)  is  nonzero,  subroutine 
LINEB  (Section  A. 1.5  of  this  appendix)  is  called  to  draw 
the  line  segment  from  the  Ith  to  the  I2th  point.  The 
type  of  line  to  be  drawn  (continuous,  dashed,  etc.)  is 
determined  by  the  argument  LINE  in  the  call  to  LINEB. 

Then  IXl  aid  1X2  are  set  equal. to  the  raster  coordinates 
corresponding  to  X(I2)  and  Y(I2),  respectively,  using  the 
NAA  function  routines  NXV  and  NYV,  for  use  in  calling 

P0INTB  the  next  time  around  the  loop. 

< 

When  these  plotting  operations  have  been  completed, 
if  JCURVE  is  equal  to  1,  the  NAA  routine  CHSIZV  is  called 
with  arguments  (3,3)  to  restore  the  normal  character 
size.*  Then  subroutine  RITE2V  (references  3,  17)  is  called 
to  write  the  abscissa  and  ordinate ^ labels  ABSL  and  0RDL 
and  the  plot  title  TITL  in  the  bottom,  left,  and  top 
margins  of  the  plot,  respectively. 

(3)  Parameter  tables  and  lables.  — If  the  argument 
LL  is  zero,  then  parameter  tables  and  curve  labelling  are 
not  to  be  used,  and  a RETURN  is  executed  at  statement  190 
in  GRAPH.  If  LL  is  1,  the  parameter  tables  are  produced 
but  the  curve  labelling  is  skipped.  If  LL  is  neither  0 
nor  1,  then  the  curves  are  labelled  also.  To  implement 
the  labelling,  the  code  calls  the  NAA  routines  NXV  and  NYV 
to  determine  the  raster  coordinates,  NXVl  and  NYVl,  of  the 
first  point  on  the  curve.  It  then  computes  the  raster 
coordinates,  IXl  and  lYl,  of  a point  which  lies  16  raster 
units  away  from  the  first  point  of  the  curve  in  a direction 
opposite  to  that  in  which  the  second  point  lies.  It  then 
writes  the  curve  label  (CURVE  = ICURVE)  into  the  plot  by 
calling  the  NAA  subroutine  LABLV  (references  3,  17). 


*A  nonstandard  character  size  is  set  in  P0INTB  by  calling 
CHSIZV(3,2),  to  obtain  plot  symbols  whose  height  and  width 
are  approximately  equal. 


The  tables  of  parameter  values  are  produced  by  the 
coding  from  statement  200  to  statement  300,  For  ICURVE 
= 1,  the  code  first  writes  the  table  heading.  The  heading 
consists  of  a sample  of  the  type  of  line  used  for  the 
current  family  of  curves,  and  a' two-line  printed  specifica- 
tion Df  the  nature  of  the  current  parameter.  The  sample 
line  is  produced  by  calling  the  entry  LINEBR  of  subroutine 
LINEB  (discussed  below).  It  is  horizontal  and  lies  at 
the  raster  ordinate  IY2.  The  printed  heading  is  produced 
by  calling  the  NAA  routine  PRINTV.  Its  first  line  lies 
15  raster  units  below  the  sample  line,  and  its  second 
line  is  an  additional  20  raster  units  lower.  The  tables 
for  different  parameters  (families  of  curves)  have  a 
vertical  separation  of  300  raster  units. 

The  body  of  the  parameter  table  consists  of  rows  each 
containing  the  numerical  label  for  the  curve  (equal  to 
CURVE),  a sample  of  the  plot  symbol  used,  and  the  parameter 
value.  The  numerical  label  is  omitted  for  LL  = 1.  When 
it  is  included,  it  is  produced  by  calling  LABLV.  The 
sample  plot  symbol  is  produced  by  calling  P0INTB,  and  the 
parameter  value  by  another  call  to  LABLV.  The  arguments 
NCHAR  and  NDMAX  of  LABLV  are  determined  as  functions  of 
.IPVM,  which  is  log^^Q  (PVAL)  rounded  down  in  magnitude  to 
the  nearest  integer.  If  IPVM  is  greater  than  4 or  less 
than  -2,  NCHAR  is  set  to  -3  to  give  scientific  notation 
with  three  significant  figures.  Otherwise,  fixed-point 
notation  is  used,  and  NCHAR  and  NDMAX  are  adjusted  to 
provide  the  required  number  of  characters  and  positions 
to  the  left  of  the  decimal  point. 


A. 1.4  Subroutine  LINEB 


Subroutine  LINEB  draws  a straight  line  between  two 
specified  points  (XI,  Yl),  (X2,  Y2).  When  it  is  called 
through  its  entry  LINEBR,  the  two  points  are  specified  in 
raster  coordinates  (MXl,  MYl),  (MX2,  MY2).  The  argument 
LLINE  is  a three-element  array  whose  values  control  the 
type  of  line  produced  and  its  darkness,  as  defined  in  the 
Glossary  of  Fortran  Symbols  (Section  A.2). 


The  raster  coordinates  of  the  two  points  to  be 
connected  by  a line  are  denoted,  within  LINEB,  by  (NXl, 

NYl),  (NX2,  NY2).  If  entry  was  through  LINEBR,  these 
values  are  set  equal  to  MXl,  etc.  If  entry  was  through 
LINEB,  the  raster  coordinates  are  determined  by  calling 
the  NAA  subroutines  NXV  and  NYV. 

For  LINE  = LLINE(l)  = 1,  the  points  are  connected 
with  a continuous  line  by  calling  NAA  subroutine  LINEV. 

This  call  is  executed  IDARK  times  to  obtain  the  desired 
darkness. 

For  LINE  > 1,  beginning  in  statement  50,  the  sine 
(SINA)  and  cosine  (C0SA)  of  the  angle  between  the  vector 
from  point  1 to  point  2 and  the  positive  X-axis  are 
computed.  Then,  for  LINE  =2,  a dashed  line  is  dr?»wn  from 
point  1 to  point  2,  with  the  dash  length  in  millir  ters* 
being  approximately  equal  to  IPAR  = LLINE(3).  The 
distance  DEL  from  the  beginning  of  one  dash  to  the  begin- 
ning of  the  next  is  calculated,  in  raster  units,  as  10.8  x 
IPAR.  The  numerical  coefficient  in  this  formula  is  ob- 
tained by  noting  that  the  frame  width  is  1024  raster  units 
and  is  190  ram  in  hard  copy.  Thus,  1 mm  on  the  hard  copy 
is  equivalent  to  5.4  raster  units,  the  dash  length  HDEL  is 
equal  to  5.4  x IPAR,  and  DEL  is  twice  as  large,  allowing 
for  the  gap  between  two  successive  dashes.  The  number  of 
dashes  to  be  used  in  the  line  joining  the  two  points  is 
thus  NP  - DIST/DEL,  where  DIST  is  the  separation  of  the 
points,  in  raster  units.  If  the  two  points  are  too  close 
together  in  comparison  with  the  specified  dash  length, 
integer  arithmetic  gives  NP  = 0.  This  possibility  should 
be  borne  in  mind  by  the  user  of  GPAPH. 

LINEB  next  computes  the  increments  IDX  and  IDY  in 
raster  coordinates  between  the  beginning  and  end  of  a single 
dash,  using  the  previously  determined  trigonometric 


*This  description  of  the  dash  length  is  applicable  to  liard 
copy  from  the  Calcomp  890  CRT  Plotter  at  Avco,  or  to 
enlargements  of  microfilm  plots  produced  on  the  SD  4060 
at  NASA/JSC  to  a frame  size  of  7.5  x 7.5  inches. 


functions  C0SA  and  SINA,  It  then  calls  the  NAA  subroutine 
LINE2V  (references  3,  17)  NP  times  to  draw  the  dashed 
line  joining  the  end  points  specified  in  the  arguments. 

In  the  D0  loop,  D0  70  I = 1,  NP,  the  quantities  VXl  and 
VYl  represent  the  desired  starting  points  for  each  dash 
in  raster  coordinates.  These  quantities  are  calculated 
using  floating  point  arithmetic  to  avoid  the  loss  of 
accuracy  possible  in  integer  arithmetic,  and  are  rounded 
down  to  obtain  the  integer  values  NXl,  NYl  used  in  the 
calls  to  LINE2V. 

For  LINE  = 3,  the  line  joining  the  specified  end  points 
is  produced  by  plotting  a string  of  Charactron  symbols.  , 

The  symbol  to  be  used  is  specified  by  IPAR,  which  is  used 
as  the  index  in  the  POINTV  cliaracter  table  (references  3, 
17).  The  following  list  is  excerpted  from  references  3 
and  17. 

Character 


0 

X 

Y 
+ 

* 

H 

0 

1 

The  separation  of  successive  points,  DEL,  is  set  tr>  5 
raster  units  if  IPAR  =0  (i.e.,  if  the  plotting  character 
is  a dot),  and  is  set  to  15  raster  units  otherwise.  The 
number  of  characters  to  be  used  in  tracing  the  lint,  is 
then  NP  = DIST/DEL.  The  string  of  characters  is  then 
produced  by  calling  the  four-argument  version  of  P0INTV 
(references  3,  17)  NP  times,  in  the  loop  D012O  I = NP. 
The  minus  sign  on  the  argument  IPAR  of  P0INTV  suppresses 
the  plotting  of  a central  dot  in  each  character. 


IPAR 

0 

1 

2 

4 

5 

6 

10 

15 

22 

25 
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A , 1 . 5 Subroutine  POINTS 


This  routine  plots  a point  at  the  raster  coordinates 
(IX,  lY),  using  a plot  symbol  selected  from  a table  ICHAR(I) 
of  ten  standard  symbols.  The  index  NSYMBL  in  the  calling 
sequence  specifies  which  symbol  is  to  be  used.  The  symbols 
are  as  follows: 


J Symbol 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


X 

+ 

o 

* 

H 

C 

D 

Y 

A 

X 


These  symbols  are  produced  by  calling  the  NAA  subroutine 
RITE2V  (references  3.,  17).  The  inversions  for  1 = 7 and 
9,  and  the  90-degree  rotation  for  I = 10,  are  accomplished 
using  the  argument  K (NSYMBL)  of  RITE2V.  Before  RITE2V 
is  called,  a call  is  made  to  CHSIZV  (references  3,  17)  to 
make  the  height  of  the  symbols  nearly  equal  to  their  width 
instead  of  50  percent  greater,  as  is  normally  the  case. 

The  argument  IDARK  of  P0INTB  and  RITE2V  controls  the 
number  of  times  the  symbol  is  overdrawn  and  thus  its 
darkness  in  the  plot. 

A, 2 Glossary  of  Fortran  Symbols  for  NOZFIT 

This  section  defines  the  Fortran  symbols  used  in  the 
NOZFIT  main  program  and  in  its  associated  subroutines,.  The 
variables  are  listed  in  alphanumeric  order  within  each 
routine,  and  the  routines  themselves  are  in  alphabetic 
order.  There  are  no  common  variables. 
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A. 2.1  Main  Program 


C 


ABSL(I) 


Array  containing  alphanumeric  abscissa 
label  for  plots 


AC0N 


Conversion  factor  (180/ir  ) from  radians 
to  degrees 


ATP(JP) 


Axial  coordinate  at  the  downstream  boundary 
of  the  JPth  profile  section  (cm) 


l 

t 

I 

i 

i 


CARDS 

C0MMNT(I) 

CTHETA 

DTK 

DX 

ENDJ0B 

FISHAP(I) 

PNSECT(I) 

I 

IC 

IC0ND(J) 


ICURVE 

INCR(L) 


Logical  control;  .FALSE,  value  suppresses 
punched  card  output 

Hollerith  descriptive  data 
Cos  (THETA) 

Throat  diameter  ( inch ) 

Increment  in  X for  calculation  of  profile 
(inch) 

Logical  control;  .TRUE,  value  terminates 
the  job  at  the  end  of  the  current  case 

Floating  point  value  representing  ISHAPE(I) 
in  punched-card  output 

NSECTS(I)  + 0,1  for  card  output 
D0  index 

IC0ND(J)  for  the  Jth  profile  section 

0 

Index  specifying  ths  type  of  condition  to  be 
used  in  determining  the  Jth  profile  section 
(see  input  discussion,  Appendiic  D of  Volume 
II,  ref.  2 or  Section  A. 1.1  of  the  present 
Appendix) 

Unused  argument  of  subroutine  GRAPH 
0 for  L = 1;  i for  L = 2 


* 


} 
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INDEX 

INDX2 

ISGN(L) 

ISH 

ISHAPE(J) 

ISJ 

IW0RDL 


Index  of  the  profile  section  adjacent  to 
the  current  (Jth)  section  and  nearer  the 
throat 

Index  of  the  profile  section  adjacent  to 
the  current  (iJth)  section  and  farther  from 
the  throat 

1 for  L = 1; ■ -1  for  L = 2 
ISHAPE  (INDEX) 

Indicator  for  shape  of  Jth  profile  section 
(see  input  discussion.  Appendix  D of 
Volume  II) 

ISHAPE (K) 

Indicator  for  number  of  characters  per  word 
on  the  type  of  computer  system  being  used: 

IW0RDL  = 1 6-character  word  (UNIVAC 

1108) 

IW0RDL  = 2 4-character  word  (IBM  360) 


J 


Profile  section  index 


JP 

J1 


Index  of  profile  section  boundaries 

2K  - 1;  first  J value  on  the  Kth  card 
containing  PARAM( I, J)  data  in  the  punched 
output 


J2 


K 

KP 


Jl  + 1;  second  J value  on  the  Kth  card 
containing  PARAM(I,J)  data  in  ^he  punched 
output 

D0  index;  profile  section  index  in  calcula- 
tion of  profile  from  curvefit 

Continuation  card  counter  punched  in  column 
6 of  output  cards 
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L 


LINE (I) 

1.L 

NC(I) 

N0ZZLE 

NS 

NSMl 

NSECTS(L) 

0RDL(I) 

PAR(I,J) 

PARAMd,  J) 

PHI 

PI 

PLABL ( I ) 
PL0TS 

PVAL 


Indicator  for  upstream  profile  sections 
(L  = 1)  and  downstream  sections  (L  = 2) 

Argument  of  subroutine  GRAPH  .see  below) 

Argument  of  subroutine  GRAPH  (see  below) 

Argument  of  subroutine  GRAPH  (see  below) 

Profile  index  for  use  in  NATA 

NSECTS(L)  in  computation  of  profile  fit 
parameters;  total  number  of  sections  in 
coding  of ‘output 

NS-1 

Number  of  profile  sections  upstream  (L  = 1) 
and  downstream  (L  =?  2)  of  the  throat 

Alphanumeric  label  for  ordinate  in  plot 

Input  parameter  values  for  the  Jth  profile 
section;  see  discussion  of  inputs,  Appendix 
D of  Volume  II 

Parameters  of  curvefit  for  Jth  profile 
section;  see  discussion  of  outputs.  Appendix 
D of  Volume  II 

0.5  (tt  - |THE'tA2-TIiETAll  ) ; see  discussion  of 
IC0ND  = 4 in  Section  A. 1.1. 

3.14159265 

Argument  of  subroutine  GRAPH  (see  below) 

Logical  control,  .FALSE,  value  suppresses 
plot  output 

Argument  of  subroutine  GRAPH  (see  below) 
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1* 


R 


RTHCM 

STHETA 

51 

52 


S2ARR(1SH) 


THETA 


THETAl 


THETA2 


TITI£(I) 


TTHETA 

X 

xc 


XINCH (I) 
XL 


XL0 

XSTART 


XUP 


Circle  rac4i*is  for  a circular-arc  section 
(c.r.; 


Throat  radius  in  centimeters 


Sin  (TKETA) 

-1.0  for  L = 1/  +1.0  for  L = 2 


0.0  for  ISHAPE(J)  = 1;  -1.0  for  ISHAPE(J) 
= 2;  +1.0  for  TSHAP£(J)  = 3 


Array  containing  S2  values  for  the  three 
shapes 


Angle  of  inclination  of  a straight  section 
to  the  nozzle  axis  (radians) 


For  IC0ND  = 4,  inclination  angle  of  the 
adjacent  section  closer  to  the  throat 


For  IC0ND  = 4,  inclination  angle  of  the 
adjacent  section  farther  from  the  throat 


Title  for  plots  (Hollerith) 


Tan (THETA) 

Axial  coordinate  (cm) 


X-coordinate  of  the  circle  center  for  the 
adjacent  section  nearer  the  throat 


Axial  coor dina te  ( inche s ) 


R/sin(PKI);  see  discussion  of  IC0ND  = 4 in 
Section  A. 1.1 


Lower  limit  of  abscissa  in  plot 


Left  limit  on  X for  calculating  nozzle 
profile  (inch) 


Upper  limit  of  abscissa  in  plot 
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% 


XZER0 


Axial  coordinate  of  start  of  boundary  layer 
for  use  in  NATA  (cm) 


XZER0I 

XI 

Y 

YC 

YINCH  (1) 
YL0 
YUP 
Y1 

BIN 

IW0RDL 

PL0TS 

XMEM0 

XNAME 


XZER0  expressed  in  inches 

Intermediate  X values  in  calculations  of 
parameters  for  IC0ND  =2,  3,  and  4 

Profile  ordinate  (cm) 

Y-coordinate  of  the  circle  center  for  the 
adjacent  section  nearer  the  throat 

Profile  ordinate  (inches) 

Lower  limit  on  ordinate  in  plot 

Upper  limit  on  ordinate  in  plot 

Intermediate  Y values  in  calculations  of 
parameters  for  IC0ND  =2,  3,  and  4 

A. 2. 2 Subroutine  FRAMEB 

Alphanumeric  bin  number  for  plot  ■’  'entifica- 
tion  frame  (Avco) 

Defined  above  (Main  program) 

Defined  above  (Main  program) 

Alphanumeric  memo  number  for  plot  identi- 
fication (Avco) 

Alphanumeric  submitter  name  for  plot 
identification  frame  (Avco) 
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! 


ABSL 

CURVE 

DC 


DX 


DY 


DYL 

HYP 

I 

ICURVE 


IDXV 


IDYV 


i 


.1 


i- 


A. 2. 3 Subroutine  GRAPH 

Array  containing  48-character  label  for 
abscissa  scale 

ICURVE  expressed  as  a floating-point  valu^' 

Parameter  controlling  the  spacing  of  grid 
lines  on  linear  scales;  DC  = 16  is  a normal 
value.  The  spacing  increases  or  decreases 
with  the  value  of  DC 

Floating  point  data  increment  at  which 
vertical  grid  lines  are  displayed 

c 

Floating  point  data  increment  at  which 
horizontal  grid  lines  are  displayed 

Amount  by  which  YL  is  decreased  and  YU 
increased  to  allow  space  for  numerical 
labels  of  curves 

Distance  (in  rascer  units)  between  the  first 
two  points  of  a curve 

J0  index 

Counter  for  the  number  of  curves  plotted 
on  the  same  frame.  If  this  argument  is  set 
to  zero  by  the  calling  program,  a new 
parameter  label  for  a new  series  of  curves 
is  printed  in  the  margin;  this  feature  is 
used  only  when  two  or  more  families  of 
curves  are  to  be  plotted  in  the  same  frame. 

Interval  in  raster  units  between  the 
abscissas  of  the  first  two  points  in  a 
curve 

Interval  in  raster  units  between  the 
ordinates  of  the  first  two  points  of  a 
curve 


I 
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I 


I 

i 

i 

) 

f 


1.. 


{ 


lERR 


III 


IMAG(I) 


IPVM 

IXi 

lY 


lYl 

IY2 


12 

J 

JCURVE 


Error  indicator  in  subroutine  DXDYV 
(references  3,  17);  if  a nonzero  value  of 
lERR  is  returned,  grid  generation  is 
impossible  with  the  given  upper  and  lower 
limits  cn  X and  Y 

Argument  of  subroutine  GRIDIV  (references 
3,  17).  Every  Illth  vertical  line  of  the 
grid  is  labelled  with  a numerical  value;  a 
negative  III  forcer;  placing  the  labels 
outside  the  grid 

For  1 = 1 and  2,  of  the  largest 

numerical  value  to  be  plotted  on  the 
abscissa  and  ordinate,  resj>ectivaly 

LogiQ  of  the  absolute  magnitude  of  a para- 
meter value  (PVAli) 

Abscissa  of  the  location  where  a curve 
label  is  to  be  printed  (raster  units) 

Ordinate  of  the  location  where  a parameter 
value  is  to  be  printed  in  the  margin  (raster 
units) 

Ordinate  of  the  location  where  a curve  label 
is  to  be  printed  (raster  units) 

Ordinate  of  the  location  where  a sample  of 
the  type  of  1 ine  used  for  a family  of 
curves  is  drawn  in  the  margin,  (raster  units) 

I +1 

D0  index 

Counter  for  the  total  number  of  curves 
plotted  in  a given  frame 
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* 

t 

t 

1 

I 

» 

* 

1 


1 


s 


•i 


I 


I 

I 


I 


I 

•r 


.i 

-I* 

$ 


3* 

I 


f 

% 


j- 


JJJ 


i 


( 


LlNE(l) 

LINE(l) 


LINE (2) 
LINE (3) 


( 


LL 


LX 


Argument  of  subroutine  GRIDlV  (references 
3,  17).  Every  JJJth  horizontal  line  of  the 
grid  is  labelled  with  a numerical  value;  a 
negative  JJJ  forces  placing  the  labels 
outside  the  grid 

Control  parameters  frt  lines  joining  data 
points,  defined  as  follows: 

0 Do  not  join  points  with  lines 

1 Join  points  with  continuous  lines 

2 Join  points  with  dashed  lines 

3 Join  points  with  strings  of  characters 

Number  of  strikes  for  line;  use  2 for  dark 
lines 

Ignored  if  LINE(l)  is  0 or  1 
Length  of  dashes  in  mm  if  LINE(l)  = 2 
Index  of  character  in  POINTV  cable  if 
LINE(l)  = 3 (see  Procedures  Manual, 
Computation  and  Analysis  Division,  MSC, 
p.  5. c. 7. 5. 1.127) 

(Use  LINS (3)  = 0 with  LINE(l)  = 3 to 
produce  dotted  lines) 

Control  parameter  for  labelling  of  curves: 
LL  = 0 Suppress  labelling  of  curves  and 
printing  of  parameter  values  in 
table  at  right  of  grid 

LL  = 1 Print  parameter  values  and  plot 
■ symbols  but  do  not  label  curves 

LL  = 2 Label  curves  and  print  parameter 
values  and  plot  symbols 

Argument  of  subroutine  SMXW  (references  3, 
17);  0 sets  linear  mode  for  abscissa, 
nonzero  log  mode 


I 


LY 

MMM 

NC(I) 


NCHAR 

NCI 

NC2 

NDMAX 


Argument  of  subroutine  SMXYV  (references  3, 
17);  0 sets  linear  mode  for  ordinate, 
nonzero  log  mode 

Argument  of  subroutine  GRIDIV  (references  3, 
17 ) . Every  ^IMMth  horizontal  grid  line  is 
retraced  for. emphasis 

For  1=1  and  2,  control  parameters  for 
plotting  points:  . 

NC(1)  < 0 Use  standard  table  of  10  char- 
acters for  plotting  points,  a 
‘ new  character  for  each  successive 
« call  to  GRAPH  for  the  same  family 
of  curves  in  the  same  frame  (see 
subroutine  P0INTB) 

NC(1)  = 0 Supress  plotting  of  points 

NC(1)  > 0 Use  the  NC(l)th  character  in  the 
standard  table  (see  P0INTB) 


NC(2) 


Number  of  strikes  for  each  symbol 
plotted;  use  1 for  light  charact- 
ers, 2 for  dark 


Argument  of  subroutine  LABLV  (see  references 
3,  17);  number  of  characters  to  be  displayed, 
including  leading  blanks  and  the  decimal 
point,  if  any 

NC(1) 

NC(2) 


Argument  of  subroutine  LABLV  (see  references 
3,  17);  maximum  number  of  characters  to  be 
displayed  to  the  left  of  the  decimal  point 


NP 

NLAST 

NNN 

NP 

NPL 

NSVMBL 

NXVl 

NXX 

NXY(I) 

NYVl 

NYY 

0RDL ( I ) 
PLABLd 


Control  parameter  for  frame  advance: 

NF  = 0 Plot  data  on  same  frame 
NF  = 1 Start  a new  frame,  establish  a grid 
and  plot  the  date  on  the  new  frame 

Argument  of  subroutine  RITE2V  (references 
3,  17);  not  used  in  GRAPH 

Argument  of  subroutine  GRIDIV  (references 
3,  17).  Every  NNNth  vertical  grid  line  is 
retraced  for  emphasis 

Number  of  data  points  to  be  plotted 

Counter  for  families  cf  curves  plotted  in 
the  same  frame 

Index  of  point  symbol  in  standard  table 
(see  P0INTB) 

Abscissa  of  first  point  in  raster  coordi- 
nates 

Argument  of  subroutine  DXDYV  (references 
3,  17);  not  used  in  GPJ^PH 

For  1=1  and  2,  the  number  of  characters 
to  be  displayed  in  the  labels  of  vertical 
and  horizontal  grid  lines;  arguments  of 
subroutine  GRIBIV  (references  3,  17) 

Ordinate  of  first  point  in  raster  coordi- 
nates 

Argument  of  subroutine  DXDYV  (references 
3,  17);  not  used  in  GRAPH 

Alphanumeric  label  for  ordinate 

J)  For  J = 1,  2,  a two- line  alphanumeric  label 

for  the  parameter 


PVAL 

TITL(I) 

X(I) 

XL 

XU 

XYMAG(I) 

Y(I) 

YL 

YU 


C0SA 

DEL 

DIST 


Parameter  value 
Alphanumeric  title 

Array  containing  the  abscissas  of  the  data 
points  . 

Lower  limit  on  X for  all  data  to  be  plotted 
in  a given  frame 

Upper  limit  oh  X "ror  all  data  to  be  plotted 
in  a given  frame 

For  I = 1,  or  2,  the  largest  absolute  mag- 
nitude abscissa  or  ordinate  value  to  be 

c 

plotted  in  a given  frame 

Array  containing  the  ordinates  of  the  data 
points 

Lower  limit  on  Y for  all  data  to  be  plotted 
in  a given  frame 

Upper  limit  on  Y for  all  data  to  be  plotted 
in  a given  frame 

A. 2. 4 Subroutine  LINED 

Cosine  of  the  angle  between  the  vector  to 
be  drawn  and  the  positive  X-axis 

Twice  the  dash  length  in  raster  units 

Distance  between  the  beginning  and  end  of 
the  vector  in  raster  units 


HDEL 

I 

IDARK 


Dash  length  in  raster  units 

D0  index  over  the  dashed  or  plot  symbols 
used  to  draw  the  vector 

Number  of  times  lines  or  symbols  are  drawn 


IDX 


Increment  in  the  abscissa  for  a dash 
(raster  units) 


IDY  Increment  in  the  ordinate , for  a dash 

(raster  units)  , 

IPAR  Length  of  dashes  in  millimeters  for  LINE  = 

2;  integer  (NS)  for  selecting  the  plot 
symbol  from  the  table  in  subroutine  P0INTV 
(references  3,  17)  for  LINE  = 3 

J D0  index  for  double-strike  plotting  to 

obtain  dark  lines  or  symbols 

< 

LINE  Control  parameter  for  type  of  line: 

LINE  = 1 Continuous  line 

LINE  = 2 Dashed  line 

LINE  = 3 String  of  Charactron  symbols 

LLINE(I)  LLINE(l)  = LINE 

' LLINE(2)  = IDARK 

LLINE(3)  = IPAR 

MXl  Abscissa  of  the  start  point  in  raster  units 

MX2  Abscissa  of  the  end  point  in  raster  units 

MYl  Ordinate  of  the  start  point  in  raster  units 

MY2  Ordinate  of  the  end  point  in  raster  units 

NP  Number  of  dashes  in  vector 

NXl  Abscissa  of  the  start  point  in  raster  units 

NX2  Abscissa  of  the  end  point  in  raster  units 

NYl  Ordinate  of  the  start  point  in  raster  units 

NY2  Ordinate  of  the  end  point  in  raster  units 


RASTER 


Logical  indicator,  .TRUE,  for  entry  through 
LINEBR,  .FALSE,  for  entry  through  LINES 


SINA 


Sine  of  the  angle  between  the  vector  to  be 
drawn  and  the  positive  X-axis 


CHAR(I) 


IDARK 


Square  of  the  distance  between  the  start 
and  end  points  of  the  vector. (raster  units) 

Floating  point  value  of  NXl 

Floating  point  value  of  NYl 

Abscissa  of  the  start  point 

Abscissa  of  the  end  point 

Ordinate  of  the  start  point 

Ordinate  of  the  end  point 

A . 2 . 5 Subroutine  P0INTB 

Array  of  characters  for  plotting  points 

Argument  of  RITE2V  controlling  darkness  of 
plotted  symbol  (see  references  3,  17) 

Abscissa  of  location  where  point  is  plotted 
(raster  coordinate) 

Ordinate  of  location  where  point  is  plotted 
(raster  Coordinate) 


K(I) 


Argument  of  RITE2V  controlling  orientation 
of  plotted  sjnnbol;  used  to  present  each  of 
the  symbols  "H",  "C",  and  "Y"  in  two 
orientations 


NLAST 


Argument  of  RITE2V  (references  3,  17);  not 
used  in  P0INTB 
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NS'^’MBL  Index  used  to  select  plotting  symbol  from 

CHAR  array 


Listing  of  N0ZFIT 


Presented  below  are  source  program  listings  for  the 
main  program  of  N0ZFIT,  and  for  subroutines  FRAMEB, 

GRAPH,  LINEB,  and  P0INTB.  Listings  are  provided  for  both 
the  IBM  (Avcc)  and  UNIVAC  (NASA/JSC)  versions  of  FRAMEB. 
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